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coefficients  for  the  turret  shape  polynomial  in  x-dlrectlon 
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the  distance  2L  is  separation  between  turrets 
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I.  IMTRDDDCTION 


A computer  program  Is  described  here  which  obtains  the  optimum  shape 
of  a lasw  turret  to  mlnimuze  optical  distortion  of  a laser  beam.  The 
analysla  and  optimization  procedure  on  which  the  program  la  based  are 
described  In  detail  In  Ref.  1. 

The  turret  la  assumed  to  be  situated  on  a cylindrical  fuselage,  as 
shown  in  Figure  1.  The  details  of  the  turret  geometry  are  shown  in 
Figure  2.  The  shape  of  the  turret  Is  defined  by  the  product  of  two 
polynomials,  so  that 


1 

r - ef(x)  f(9) 

d) 

where 

f(x)  ■ 1 + Sj^  X + a2  +. ..+  Sj^x*^ 

(2) 

and 

f(0)  - 1 + b«  0^+...+  b 0** 

* P 

(3) 

where  p Is  the  sequence  of  even  numbers  2,  4,  6 ...  . 


Figure  2.  Turret  Geometry. 

Optional  distortion  Is  Introduced  Into  a laser  beam  propagating 
through  the  flow  field  surrounding  the  turret;  see  Ref.  2.  For  purposes 
of  this  analysis,  the  flow  is  assumed  to  be  compressible  and  Invlscld 
imd  Is  governed  by  the  small  perturbation  equation 


±3  <|>  + <()  + — + -Si  . 0 

XX  rr  r 2 
r 


(4) 


The  (+)  sign  applies  to  subsonic  flow  and  the  (-)  sign  applies  to  super- 
sonic flow.  The  solution  of  equation  (4)  is  valid  for  small  perturbation 
subsonic  and  supersonic  flow.  For  transonic  flow  the  analysis  is  nonlinear, 
even  for  small  perturbations,  and  Is  not  considered  here.  Reference  2 
discusses  the  formulation  of  the  aerodynamics  model  for  a variety  of 
geometrical  shapes  and  flow  regimes. 

From  the  solution  of  the  potential  equation,  the  perturbation 
velocities,  u and  v,  may  be  calculated  an/where  In  the  flow  field.  From 
knowledge  of  the  flow  field  the  optical  path  length  on  any  rzy  of  a laser 
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beam  Is  calculated.  The  laser  beam  la  propagated  through  the  flow  field 
as  shown  in  Figure  3.  Taking  the  center  of  the  beam  as  the  reference 
ray,  the  difference  In  optical  path  lengths,  OPL,  between  a specified  ray 
and  the  ray  on  the  beam  center  Is  calculated  as 

AOPL  - OPLj  - OPLj^  (5) 

where  the  subscript  1 corresponds  to  the  reference  ray  and  j corresponds 
to  the  particular  ray  being  considered.  The  phase  distortion,  PD,  Is 
defined  as  AOPL/X  where  X Is  the  wave  length  of  radiation;  Refs.  3 and  4 
discuss  OPL  and  PD  In  more  detail. 


Figtire  3.  Laser  Beam  Orientation 


Pbase  distortion,  PD,  Is  calculated  numerically  at  several  radial 

and  angular  locations  within  the  beam  as  shown  in  Figure  4.  The  sum  of 
2 

(PD)  over  all  calculation  points  for  several  beam  orientations  Is  con- 
sidered to  provide  a measure  of  the  "goodness"  of  the  turret  design. 

The  coefficients  of  the  turret  shape  functions  of  equations  2 and  3 are 
then  determined  to  minimize 


SDMPD  - S Z Z (PD)^  (6) 

orientations  radii  angles 

whera  Is  a weighting  factor  applied  to  the  1-th  beam  orientation.  The 
COPES/CONMIN  optimization  program  (Ref. 5)  Is  used  to  provide  the  turret 
optimization  capability. 


Figure  4.  Phase  Distortion  Calculation  Within  the  Laser  Beam. 


Finally,  the  optical  aberrations  are  calculated  for  each  beam 
orientation  In  terms  of  Zemlcke  coefficients.  This  provides  a measure 
of  the  turret  design  In  terms  familiar  to  optical  design  specialists;  see 
Ref.  6. 

In  the  following  sections,  the  program  organization,  data  transfer 
mechanism.  Input  data  and  output  are  described.  Test  cases  are  provided 
to  help  In  making  the  program  operational.  Additional  program  details  and 
a FORTRAN  listing  are  Included  In  the  Appendices. 


II.  PROGRAM  ORGANIZATION 


The  basic  program  organization  is  shown  in  block  diagram  form  in 
Figure  5.  The  COPES  program  Is  the  main  driver  which  calls  the  optimi- 
zation program,  CONMIN,  and  the  turret  analysis  program;  COPES  Is  an 
accronyoi  for  control  Program  for  Engineering  Synthesis,  and  CONMIN  Is  an 
accronym  for  CONstrained  function  MINlmlzatlon.  Both  are  general  purpose 
programs  which  may  be  applied  to  a wide  variety  of  engineering  design 
problems  (Ref.  7).  If  only  the  analysis  of  a specific  turret  shape  Is 
desired,  this  may  be  done  without  COPES/CONMIN  by  using  a very  simple 
main  program.  Alternatively,  COPES/CONMIN  may  be  used  for  a single 
analysis  by  specifying  the  proper  value  of  a single  control  parameter  In 
the  input  data. 


Figure  5.  Program  Organization. 

The  combined  program  containing  COPES,  CONMIN  and  laser  turret 
analysis  Is  referred  to  by  the  accronym  LASTOP,  for  LASer  Turret  ^tlmlzatlon. 

The  entire  program  Is  written  In  FORTRAN  IV  and  has  been  executed, 
without  modification,  on  IBM  360/67  and  CDC  7600  computers.  The  program 

Ir 

executes  In  approximately  SO  octal  words  of  storage  on  a CDC  computer. 


111.  DATA  TRANSFER 

To  couple  the  analysis  and  optimization  programs  for  automated  design 
optimization,  pertinent  data  must  be  transferred  between  programs.  This 
Is  done  by  means  of  a single  labeled  common  block.  To  execute  the  program. 
It  Is  necessary  for  the  user  to  know  what  Information  Is  transferred  and 
the  location  in  common  of  that  Information.  This  section  defines  the  data 
to  be  transferred  and  identifies  their  location  within  the  common  block. 


The  variables  contained  in  the  "GLOBAL"  common  block  are  listed  below; 
the  terms  have  the  following  meaning:  I 

LOCATION  - The  physical  location  of  the  variable  in  the  common  block. 

For  example,  the  polynomial  coefficient  a^  Is  in  location 
2 while  a 2 Is  In  location  3.  The  usual  design  objective 
(phase  distortion),  SUMPD2,  Is  In  global  location  169. 

TYPE  - The  purpose  of  the  variable  in  design  optimization.  D ■ design 
variable,  S ■■  sensitivity  variable,  0 *•  objective  function  and 
C « constraint  function.  Note  that  a sensitivity  variable  may 
be  a design  variable  If  this  Is  meaningful.  For  example,  the 
direction  of  minimum  phase  distortion  may  be  found  by  consider- 
ing only  one  beam  orientation  and  treating  the  azimuth  angle 
(location  108)  and  elevation  angle  (location  78)  as  design 
variables.  Similarly,  objective  and  constraint  functions  are 
interchangeable.  For  example,  the  minimum  turret  half-length 
(location  21)  may  be  found  with  an  upper  bound  on  phase  distortion 


(location  169).  Under  special  circumstances,  the  objective 
function  may  also  be  a design  variable.  For  example,  the 
maximum  turret  height  (location  76)  may  be  spught.  subject  to  a 


FOBTBAN 

K&IH 


constraint  on  naalaum  phsss  distortion  (locstlon  169) . 
Bscsuss  ths  turret  height  Is  intended  ss  s design  vsrlebls 
it  oust  also  be  a design  varieble  here  because  It  only  ap- 
pears on  the  right-hand  side  of  equations  In  the  prograa. 
The  FOBZBAM  naae  of  the  variable  used  In  the  progrsa. 

The  ■atheaatleal  symbol  for  the  variable  (used  In  Bef . 1) . 


DEFIHITION  - Physical  aeanlng  of  the  variable 


LOCATION 

TYPE 

FOEXEAN 

MATH 

1-20 

D 

ABAR(20) 

•i 

21 

S 

ACL 

L 

22 

S 

AKPEIM 

It' 

23 

D,S 

AL 

1 

24-53 

S 

AMACHI(30) 

“» 

54-73 

D 

BBAR(20) 

74 

S 

DENRTO 

‘’/PSL 

75 

S 

DENGAM 

Y 

76 

D,S 

EPS 

e 

77 

S 

EPSM 

e 

m 

78-107 

S 

GAMMAI(30) 

Y 

108-137 

s 

PH1I(30) 

♦ 

138 

s 

EFUS 

^0 

139-168 

c 

SLOFEX(30) 

f (x) 

169 

0 

SUMP02 

j:(pd)' 

170 

D.S 

TDENEI 

171 

D,S 

THM4X 

®MAX 

172 

S 

WAVEL 

X 

173-202 

S 

WGHTI(30) 

'^i 

203 

S 

m 

DEPIMITIOH 

Polynomial  coefficients  on  f(x). 

Turret  half-spacing  for  Fourier 
analysis. 

Constant  in  phase  distortion  cal- 
culations. 

Turret  half  length  divided  by  SFUS. 

Kach  number  associated  with  i-th 
beam  orientation. 

Polynomial  coefficients  on  f(6). 

Density  of  air  divided  by  density 
of  air  at  sea  level. 

Exponent  in  pressure-density  re- 
lationship. 

Turret  height  divided  by  RFDS. 

Mirror  center  height  divided 
by  RFUS. 

Elevation  angle  of  1-th  beam 
orientation. 

Azimuth  angle  of  i-th  beam 
orientation. 

Fuselage  radius  (meters) . 

Slope  of  turret  surface  in  stream- 
wise  direction. 

Sum  of  squares  of  all  calculated 
phase  distortions. 

Density  of  air  inside  canopy 
divided  by  density  of  air  at  sea 
level. 

Half  angle  of  turret  (degrees) . 

Wavs  length  of  radiation  (meters) . . 

Weighting  factor  on  i-th  beam 
orientation. 

X-coordinate  of  center  of  mirror. 
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IV.  PROGRAM  DATA 


The  deta  for  laser  turret  analysis  and  optialzatlon  are  separated 
into  two  parts.  First  are  the  control  program  (COPES)  data  which  control 
the  analysis  and  design  operations.  These  are  followed  by  the  turret 
analysis  data. 

When  the  program  is  being  made  operational  or  when  only  analysis  is 
desired,  the  turret  analysis  program  may  be  run,  stand-alone  using  a 
sifflpl<^  driver  program  given  In  the  subsection  on  laser  turret  analysis. 

In  this  case,  the  COPES  data  are  omitted,  and  only  the  turret  analysis 
data  are  provided. 

Appendix  C contains  convenient  data  forms  for  both  the  COPES  and  the 
turret  analysis  data.  The  reader  may  want  to  copy  these  forms  for  use  in 
preparing  a problem. 


: j 
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A.  COPES  - A CONTROL  PROCTAM  FOR  TOGIMIERING  STOTHESgS 

The  COPES  program  Is  a general,  purpose  program  to  aid  In  design 
optimization  and  la  not  limited  to  the  specific  application  for  which  It 
Is  used  here.  The  user  must  provide  an  analysis  program  In  subroutine 
form,  which  In  this  case  Is  the  analysis  of  a laser  turret  In  subsonic 
and  supersonic  flow.  The  principal  requirements  are  that  the  analysis 
program  be  coded  In  FORTRAN  and  be  segmented  Into  Input,  execution  and 
output  and  that  all  design  Information  be  stored  in  a single  labeled 
common  block  called  6L0BCM. 

The  COPES  program  provides  four  specific  capabilities: 

1.  Simple  analysis  - Just  as  If  COPES  was  not  used. 

2.  Optimization  - minimization  or  maximization  of  one  calculated 
function  with  limits  Imposed  on  other  functions. 

3.  Sensitivity  analysis  ~ the  effect  of  changing  one  or  more  design 
variables  on  one  or  more  calculated  functions. 

4.  Tzo-varlable  function  space  - analysis  for  all  specified 
combinations  of  two  design  variables. 

COPES  utilizes  the  general  purpose  optimization  program  CONMIN 
(Ref.  2)  for  optimization,  and  this  is  the  capability  of  primary  interest 
here.  Data  requirements  for  options  3 and  4 are  Included  for  completeness. 

To  better  understand  the  COPES  data  requirements,  the  following  defini- 
tions are  useful: 

Design  Variables  - Design  variables  are  those  parameters  which  the 
optimization  program  Is  allowed  to  change  In  order  to  Improve  the  design. 
Design  variables  appear  only  on  the  right-hand  side  of  an  equation  In  the 
analysis  program.  COPES  considers  two  types  of  design  variables.  Independent 
and  dependent.  If  two  or  more  variables  are  always  required  to  have  the 
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MBM  value  or  be  In  e conatent  ratio,  one  la  the  Independent  variable 
while  the  remaining  are  dependent  varlablea.  For  example.  If  the  turret 
ahape  polynomlala  are  required  to  be  the  aame  In  both  the  x and  8 dlreetlona, 
the  coefflcienta  a^  may  be  Independent  varlablea,  and  the  may  be  dependent 
varlablea.  In  thla  example,  the  total  number  of  dealgn  varlablea  will  then 
be  twice  the  number  of  independent  dealgn  varlablea. 

Obi active  Function  - The  parameter  which  la  to  be  minimized  or  max* 
Imlzed  during  optimization  la  an  objective  function.  Included  are  parametera 
calculated  aa  a function  of  apeclfled  dealgn  varlablea  during  a aenaltlvlty 
or  two-variable  function  apace  atudy.  Objective  functlona  alwaya  occur  on 
the  left  aide  of  an  equation  unleaa  the  objective  function  la  alao  a dealgn 
variable. (The  turret  height  may  be  maximized  aa  an  objective  function  If  It 
la  alao  a dealgn  variable.  In  thla  way,  the  maximum  height  la  found  for 
which  no  conatralnts  are  violated.)  An  objective  function  may  be  linear  or 
non-linear  and  Implicit  or  explicit  but  must  be  a continuous  function  of 
the  design  variables  to  be  meaningful. 

Constraint  - Any  parameter  which  must  not  exceed  specified  bounds  for 
the  design  to  be  acceptable  is  a constraint.  Constraint  functions  always 
appear  on  the  left  side  of  an  equation.  Just  as  for  objective  functions, 
constraints  may  be  linear  or  non-linear  and  Implicit  or  explicit  but  must 
be  continuous  functions  of  the  design  variables. 

The  COPES  program  reads  from  unit  5 and  writes  output  on  unit  6.  Units 
20  and  40  are  used  aa  scratch  files.  The  scratch  file  numbers  may  be 
changed  by  changing  two  cards  at  the  beginning  of  the  COPES  program. 

The  data  required  to  run  the  COPES  program  are  now  defined.  All  GLOBAL 
LOCATION  NUMBERS  refer  to  the  location  of  the  specified  variable  in  the 
labeled  common  block,  6L0BCM.  The  pertinent  variables  and  their  globel 
locations  are  listed  in  the  section  entitled  DATA  TRANSFER. 


18 


The  data  are  segmented  into  "blocks'*  for  convenience.  All  formats 
are  alphanumeric  for  TITLE,  END,  and  STOP  cards;  FIO  for  real  data;  and 
110  for  integer  data.  Comment  cards  may  be  Inserted  anywhere  in  the  data 
stack  prior  to  the  END  card  and  are  identified  by  a dollar  sign  ($)  in 
Column  1.  The  COPES  data  stack  must  terminate  with  an  end  card  containing  , 

the  word  "END"  in  Columns  1-3. 

Data  coding  forms  are  provided  in  Appendix  C. 


COPES 

DATA  BLOCK  A 
DESCRIPTIOH;  Title  Card 


1 

1 I 

I I . FORMAT  AND  EXAMPLE 


* ( 


H 

f . 


I- 


FIELD 


NCALC: 
0 - 


1 - 
2 - 

3 - 

4 - 


2 

3 

4 

5 


NDV: 

NSV: 

N2VAR; 


IPNPTJT; 
0 - 
1 - 
2 - 
IPSENS: 


IP2VAR: 


CONTENTS 


Calculation  control 

Read  Input  and  stop.  Data  of  blocks  A-*B  are 
required.  Remaining  data  are  optional. 

One  cycle  through  program.  Data  of  blocks 
A-B  are  required.  Remaining  data  are  optional. 
Optimization.  Data  of  blocks  A>I  are  required. 
Remaining  data  are  optional. 

Sensitivity  analysis.  Data  of  blocks  A-B  and 
are  required.  Remaining  data  are  optional. 
Two  variable  function  space.  Data  of  blocks  A-B 
and  L-0  are  required.  Remaining  data  are 
optional . 

Number  of  independent  design  variables  in 
optimization. 

Number  of  variables  on  which  sensitivity 
analysis  will  be  performed. 

Number  of  objective  functions  in  a two 
variable  function  space  study. 

Input  print  control 

Print  card  Images  plus  formated  print  of 
Formated  print  of  input  only. 

No  print  of  input. 

Print  control  for  sensitivity  analysis. 

IPSENS. GT.O  detailed  print  will  be  called  for 
at  each  step  in  the  sensitivity  analysis. 
DEFAT7LT  ■ No  print. 

Print  control  for  two  variable  function  space 
study.  If  IP2VAR.GT.0  detailed  print  will  be 
called  for  at  each  step  Ceach  X-7  combination) 
DEFAULT  ■ No  print. 


input. 


If 


I 


21 


r 


i 1 

A 1 


REMARKS 

1)  Field  1 detexmines  program  execution. 


2)  Fields  2-4  identify  which  Information  will  be  read  In  subsequent 
data  blocks. 


COPES 


DATA  BLOCK 


Omit  If  NDV  - 0 In  Block  A 


« 

I 


DESCRIPTION  : Integer  Optimization  Control  Parameters 


FORMAT  AND  EXAMPLE 


2 • 


FIELD 


FORMAT 


IPRINT 

ITMAX 

ICNDIR 

NSCAL 

ITRM 

LINOBJ 

NACMXl 

NFDG  1 

8110 

5 

0 

0 

5 

0 

0 

C 

°i 

CONTENTS 


i I 


2 

3 

4 


IPRINT:  Print  control  used  In  optimization  program, 

CONMIN. 

0 - No  print  during  optimization. 

1 - Print  Initial  and  final  optimization  Infoimiation. 

2 - Print  above  plus  function  value  and  design 

variable  values  at  each  Iteration. 

3 - Print  above  plus  constraint  values,  direction 

vector  and  move  parameter  at  each  Iteration. 

4 - Print  above  plus  gradient  information. 

5 - Print  above  plus  each  proposed  design  vector, 

objective  function  and  constraints  during  the 
one-dlmenslonal  search. 

ITMAX:  Maximum  number  of  optimization  Iterations  allowed. 

DEFAULT  - 20. 

ICNDIR:  Conjugate  direction  restart  parameter. 

DEFAULT  - NDV+1. 

NSCAL:  Scaling  parameter.  GT.O  - Scale  design 

variables  to  order  of  magnitude  one  every  NSCAL 
Iterations.  LT.O  - Scale  design  variables  accord- 
ing to  scaling  values  Input. 

DEFAULT  " No  scaling. 

ITEM:  Number  of  subsequent  Iterations  which  must  satisfy 

relative  or  absolute  convergence  criterion  before 
optimization  process  Is  terminated. 

DEFAULT  - 3. 

LINOBJ:  Linear  objective  function  Identifier.  If  the 
optimization  objective  Is  known  to  be  a linear 
function  of  the  design  variables,  set  LINOBJ  - 1. 
DEFAULT  ■ Non-Linear. 

NACMXl:  One  plus  the  maximum  number  of  active  constraints 
anticipated. 

DEFAULT  - NDV+2. 
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FIELD 


NFDG: 
0 - 


CONTENTS 


8 


Finite  difference  gradient  Identifier. 

All  gradient  information  Is  computed  by  finite 
difference. 

1 - Gradient  of  objective  Is  computed  analytically. 

Gradients  of  constraints  arc  computed  by  finite 
difference. 

2 - All  gradient  information  is  coaputed  analytically. 


REMABES 

1}  For  LASER  TURRET  OPTIMZZAnON,  the  value  of  LINOBJ  and  NFOG  should 

always  be  zero.  The  value  of  NSCAL  -•  5 Is  suggested  and  ITRM  ••  NACMZl  * 0 
should  be  used.  The  value  of  IFRINT  may  be  reduced  when  the  user  Is 
familiar  with  the  optimization  output. 
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DATA  BLOCK  ^ Omit  If  NDV  - 0 In  Block  A 

DES^'TPTION  : Floating  Point  Optimization  Program  Parameters 


FOBMAI  AMD  EXAMPLE 


FDCH  I FDCHH 


CTMIN  I CTL 


CTLMlNl  THETA  i PHI 


FORMAT 


8F10 


DELFUN  I DABFUM 


Two  cards  of  data  are  read  here. 


CONTENTS 


FDCH; 


FDCHM: 


CTMIN: 


CTLMIN: 


THETA: 


DELFUN; 


DABFUN: 


Relative  change  In  design  variables  In  calculating 
finite  difference  gradients. 

DEFAULT  - 0.01. 

Minimum  absolute  step  In  finite  difference  gradient 
calculations. 

DEFAULT  - 0.001. 

Constraint  thickness  parameter. 

DEFAULT  - -0.05. 

Minimum  absolute  value  of  CT  considered  In  the 
optimization  process. 

DEFAULT  - 0.004. 

Constraint  thickness  parameter  for  linear  and  side 
constraints. 

DEFAULT  - -0.01. 

Minimum  absolute  value  of  CTL  considered  in  the 
optimization  process. 

DEFAULT  - 0.001. 

Mean  value  of  push-off  factor  In  the  method  of  feasible 
directions. 

DEFAULT  - 1.0. 

Participation  coefficient,  used  If  one  or  more  con- 
straints are  violated. 

DEFAULT  - 5.0. 

Minimum  relative  change  In  objective  function  to 
Indicate  convergence  of  optimization  process. 

DEFAULT  - 0.001. 

Minimum  absolute  change  In  objective  function  to  In- 
nate convergence  of  the  optimization  process. 

DEFAULT  ~ 0.001  times  the  Initial  objective  value. 


DATA  BLOCK  E Omit  If  NDv  ■ 0 m Block  A 

DESCRIPTION  ; Total  Number  of  Design  Variables,  Design  Objective 
Identification  and  Sign  on  Design  Objective. 


FORMAT  AND  EXAMPLE 


NDVTOTI  lOBJ 


FIELD 


3 


SGN09J 


*8  FORMAT 


aio.F 


CONTENTS 

NDVTOT:  Total  number  of  variables  linked  to  the 
design  variables.  NDVTOT  must  be  greater 
than  or  equal  to  NDV.  This  option  allows 
two  or  more  parameters  to  be  assigned  to  a 
single  design  variable.  The  value  of  each 
parameter  Is  the  value  of  the  design  variable 
times  a multiplier  which  may  be  different  for 
each  parameter. 

DEFAULT  - NDV. 

lOBJ:  Global  variable  number  associated  with  objective 

function  In  optimization. 

SGNOPT:  Sign  used  on  objective  of  optimization  to  Identify 

whether  function  Is  to  be  maximized  or  minimized. 
4'1.0  indicates  maximization.  -1.0  indicates 
minimization. 

DEFAULT  - -1.0. 


REMARKS 

1)  For  LASER  TURRET  OPTIMIZATION,  the  numbers  used  In  this  example  are 
correct  if  phase  distortion  Is  to  be  minimized.  If  phase  distortion 
Is  to  be  maximized  set  SGNOPT  * +1.0. 


DESCRIPTIOH  : Design  variable  bounds.  Initial  values  and  sealing  factors 


Note: 


Lower  bound  on  the  design  variable. 
Upper  bound  on  the  design  variable. 
Initial  value  of  the  design  variable. 

If  X Is  non-zero,  this  will  supercede 
the  value  initialized  by  subroutine 
ANALIZ. 

Design  variable  scale  factor.  Not  used 
If  NSCAL.6E.0  In  Block  C. 


1)  For  LASER  TURRET  OPTIMIZATION 
are  suggested. 


COPES 

DATA  BLOCK  G Omit  If  NDV  - 0 In  Bloelc  A. 
DESCRIPTION  ; D«sign  Variable  Ideatlf Icacion 


FORMAT  AND  EXAMPLE 


. 1 


1 

2 • 

3 

4 

5 

6 

7 

8 FORMAT 

NDSGN 

IDSGN 

AMDLT 

bllO.Fl) 

1 

U 

- 1-0 . 

r 

Notai  Read  one  card  for  each  of  the  NDVTOT  Design  Variablea. 
FIELD  CONTENTS 


1 

2 

3 


NDSGN:  Design  variable  number  associated  with 
the  variable. 

IDSGN:  Global  variable  number  associated  with 
the  variable. 

AMULT:  Constant  multlpllter  on  the  variable. 

The  value  of  the  variable  will  be  the 
value  of  the  design  variable,  NDSGN 
times  AMDLT. 

DEFAULT  - 1.0. 


DATA  BLOCK  H Onlt 

DESCRIPTION  : Number  of 

if  NDV  - 0 in  Block  A 

sets  of  constrained  parameters. 

FORMAT  AND  EXAMPLE 

• 

1 2 • 3 

4 5 6 7 

•8 

FORMAT 

NCONS 


FIELD 

CONTENTS 

1 

NCONS:  Number  of  constraint  sets  in  the  optimi- 
zation problem. 

REMARKS 

1)  If  two  or  more  adjacent  parameters  in  the  Global  common  block  have  the 
same  limits  imposed,  these  are  part  of  the  same  constraint  set. 

COPES 


DATA  BLOCK  I Omit  if  NDV  - 0 In  Block  A o r if  NCONS  - 0 in  Block  M. 


DESCRIPnOM  ; Constraint  Identification  and  Bounds. 


FOHMAT  AND  EXAMPLE 


1 2 3 A 5 6 7 8 I08MAT 


BRIM 

■Efl 

li 

BL 

BU  1 

.. 

- ..-r  • 

4F10 

— r;? 

.3 

.3 

Note:  Read  two  cards  for  each  of  the  NCONS  constraint  sets. 


FIELD  CONTENTC 

First  Global  number  corresponding  to 
the  constraint  set. 

Last  Global  number  corresponding  to  the 
constraint  set. 

DEFAULT  - ICON. 

Linear  constraint  Identifier  for  this  set 
of  constrained  variables.  LCON  > 1 Indi- 
cates linear  constraints. 

DEFAULT  ■■  0 > Nonlinear  constraint. 

Lower  bound  on  the  constrained  variables. 
Value  less  than  -l.OE+15  Is  assumed  unbounded. 
Normalization  factor  on  lower  bound. 

DEFAULT  « Max  of  ABS(BL),  0.1. 

Upper  bound  on  the  constrained  variables. 
Value  greater  than  1.0E-fl5  Is  assumed 
unbounded. 

Normalization  factor  on  upper  bound  . 

DEFAULT  - Max  of  ABS(BU),  0.1. 

REMARKS 

1)  The  normalization  factors  should  usually  be  defaulted. 


1 

2 


ICON: 

ICON: 


LCON: 


1 

2 

3 


BL: 

SCALl: 

BU: 


SCAL2: 


COPES 


DAKl  BLOCK  J Omit  if  NSV  » 0 In  Block  A 
DESCttTPTIOW  : Sensitivity  Objectives. 


POmm  AND  EXAMPLE 


1 

2 

3 4 5 

6 

7 

8 

fDBKAT 

NSOBJ 

1 1 

110 

4 

1 

NSNI 

NSN2 

NSN3  1 NSN4  | 

8110 

26 

«2I 

4]  4^ 

Hotet  Two  or  more  cards  are  read  here. 
FIELD 

1 NSOBJ: 

1-8  NSNI: 


CONTENTS 

Number  of  separate  objective  functions 
to  be  calculated  as  functions  of  the 
sensitivity  variables. 

Global  variable  number  associated  with 
the  sensitivity  objective  functions. 


REHARKS 

1)  Hors  than  eight  sensitivity  objectives  are  allowed.  Add  data  cards  as 
required  to  contain  data. 
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DATA  BLOCK 


Omit  If  NSV  - 0 In  Block  A 


DESCRIPTION  : Sensitivity  Variables 


FOBMAI  AND  EXAMPLE 


ISENS  I NSENS 


26 


.8  FORMAT 


2110 


Note:  Read  one  set  of  data  for  each  of  the  NSV  sensitivity  variables. 
Note:  Two  or  more  cards  are  read  here. 


FIELD 


CONTENTS 

ISENS:  Global  variable  number  associated  with 
the  sensitivity  variable. 

NSENS:  Number  of  values  of  the  sensitivity 
variable  to  be  considered. 

SNSI:  Values  of  the  sensitivity  variable,  for 

J - 1,  NSENS.  J > 1 corresponds  to 
nominal  value. 


REMARKS 


1)  More  than  eight  values  of  the  sensitivity  variable  are  allowed.  Add 
data  cards  as  required  to  contain  data. 


■Si  .HJ.mJUiVJW.-JJIH 


■nwijwiuyji 


COPES 

DATA  BLOCK  L Omit  If  N2VAR  » 0 In  Block  A 
DESCRIPTION  ; Two  variable  function  space  control  parameters. 


FOBMAT  AND  EXAMPLE 


1 

2 * 

3 

4 

5 

6 

7 

8 FORMAT 

N2VX 

M2VX 

N2VY 

M2VY 

1 4U0 

26 

S 

27 

5 

L 

FIELD  CONTENTS 

1 N2VX:  Global  location  of  X-variable  in  two- 

variable  function  space. 

2 M2VX:  Number  of  values  of  X-varlable  to  be 

considered . 

3 N2VY:  Global  location  of  Y-varlable  In  tvo- 

variable  function  space. 

4 M2VY:  Number  of  values  of  Y-variable  to  be 

considered. 
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DESCRIPTION  « Objective  Functions  of  Two-varlable  Function  Space  Study.  {| 

I; 


FORMAT  AND  EXAMPLE 


FIELD  CONTENTS 

1-8  NZI:  Global  variable  location  corresponding 

to  ITH  function  of  X and  Y in  two 
variable  function  space. 

REMARKS  I - 1,  NZVAR,  where  NZVAR  is  read  in  Block  A.' 

1)  More  than  eight  objective  functions  are  allowed.  Add  data  cards  as 
required  to  contain  data. 


COPES 


DATA  BLOC^:  N Onlt  If  N2VAR  - 0 In  Block  A 

DESCRIPTION  : Values  of  X-varlable  in  Two-variable  Function  Space  Study. 


70BMAT  AND  EXAMPLE 


1 

2 • 

3 

4 

S 

6 

7 

*8  fOBMAT 

XI 

X2 

X3 

X4 

# e • 

• « e 

1 8F10 

0^ 

L£ 

1.5 

2.0 

1 

r 


FIELD  CONTENTS 

1-8  XI:  Values  of  X-varlable  to  be  considered 

in  two-variable  function  space. 

I ■ 1,  MZVX,  where  MZVX  is  read  in  Block  L 

REMARKS 

1)  More  than  eight  X-values  are  allowed.  Add  data  cards  as  required  to 
contain  data. 
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COPES 


DATA  BLOCK  P 

I DESCB^TION:  Copas  data  'END'  card. 

1 

I 


FORMAT  AND  EXAMPLE 


! 1 The  word  'END'  In  columns  1-3. 

. I REMARKS 

1)  This  card  must  appear  at  the  end  of  the  COPES  data. 

■a 

r 2)  This  ends  the  COPES  input  data. 

t 

♦ 

* i 

I 


I 


B.  LASER  TURRET  ANALYSIS 


! Data  for  the  laser  turret  analysis  follow  the  COPES  data.  If  the 

general  design  capability  of  COPES  Is  not  needed,  the  analysis  prograa 
can  be  run  by  Itself  by  using  the  following  simple  main  program. 


C MAIM  PBOGRAM  FOR  STAND  ALONE  LASER  TURRET  ANALTSIS. 

C 

C - INPUT 

ICALC  - 1 

CALL  ANALIZ (ICALC) 

C 

C - EXECUTION  AND  OUTPUT. 

ICALC  - 3 

CALL  ANALIZ (ICALC) 

STOP 

END 

If  this  main  progam  Is  used,  the  COPES  and  CONMIN  routines  are  omitted^ 
and  the  COPES  data  are  not  read.  This  provides  simple  analysis  of  a specified 
turret  and  allows  the  turret  analysis  program  to  be  tested  Independently. 

The  turret  analysis  program  reads  from  unit  5 and  writes  the  output  on 
unit  6. 

The  Input  data  are  segmented  Into  blocks  for  convenience,  just  as  for  the 
COPES  data. 

Comment  cards  are  not  allowed  In  the  turret  analysis  data. 

Data  coding  forms  are  provided  In  Appendix  C. 


4 
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1 


TURKET 


DATA  BLOCK 


DESCRIPTION; 


Title  Card. 


FORMAT  AND  EXAMPLE 


2 


3 


'-I 


t : 


■■  I 


TUBRET 

DATA  BLOCK  B 

DESCRIPTION  : Aerodynamics,  Optics  constants 


FORMAT  AND  EXAMPLE 


1 

2 • 

3 

4 

5 

6 

7 

8 FORMAT 

AMACH 

DENRTO  1 

TDENRT 

DENGAM 

AKPRIM 

WAVEL 

1 6F10 

1.25 

.25 

.25 

1.405 

.00023 

3.4.6 

L_ 

FIELD 

1 

2 

3 

4 


5 

■ 6 

REMARKS 


CONTENTS 

AMACH:  Freestream  Mach  number. 

DENRTO:  Freestream  air  denslty/sea  level  density 

TDENRT:  Air  density  Inside  turret/ sea  level 
density 

DENGAM:  Exponent  In  pressure'-denslty  relationship 
“o  "o 

AKPRIM:  Phase  distortion  constant,  k' 

WAVEL:  Wave  length  of  radiation,  X (meters) 


1)  AMACH  Is  the  freestream  MACH  number  for  all  beam  orientations  unless 
specified  otherwise  In  data  Block  N. 


I 


TURRET 

DATA  BLOCK  D 

DES^^^TPTION  i Turret  Geometry 


FORMAT  AND  EXAMPLE 


2 • 

3 

4 

5 

6 

7 

8 

MAZP 

NZBC 

NTHBC 

6 

2 

1 

FORMAT 


MAZE 


4110 


FIELD  CONTENTS 


1 

MAZK: 

Order  of  x-polynomlal  shape  function. 

f(x)  - 1 + S-x  + ..  S ^ X 

1 maxk 

2 

MAXP: 

Order  of  polynomial  shape  funct^n. 

f(e)  - i+b,0  + ..b  0 

1 maxp 

3 

NZBC: 

Number  of  sets  of  y axul  y'  boundary 
conditions  in  x-^lrectlon,  externally 
imposed . 

4 

NTHBC: 

Number  of  sets  of  0 and  0'  boundary 
conditions  in  0-dlrection,  externally 
imposed . 

REMARKS 


1)  The  order  plus  one  of  each  polynomial  must  be  at  least  as  great  as 
the  actual  number  of  externally  imposed  boundary  conditions. 


I 


3 


DATA  BLOCK  E 
DESCRIPTION:  Polynonlal  coefficients  in  x-dlrectlon. 


FOBMAT  AND  EXAMPLE 


'8  lORKAT 


ABARl 


-.18056 


igE^I 


FIELD 


CONTENTS 


ABABI'  Coefficient  of  x-polynomlal  shepe 

function,  - . 

* f(x)  - 1 + a,x  + ... 

- _aexk  ^ 


* t.  3C 

nexk 


BEMABKS 


1)  The  total  number  of  coefficients  equals  1 -t-  MAXK.  Additional  data  cards 
are  used  as  required  to  contain  the  data. 


rUSSET 


DATA  BLOCK  F 


DESCRIPTION  : Geonatrlc  boundary  condltiona  in  x-dixection. 


FOHHAT  AMD  EXAMPLE 


FORKAT 


3F10 


Nbta;  NXBC  cards  ara  required. 


FIELD 


CONTENTS 

X:  X-locaCion  as  fraction  of  turret  half-length,  AL, 
where  boundary  conditions  is  imposed. 


TBC:  Required  value  of  f(x)  at  x. 
YPBC:  Required  value  of  f*(x)  at  x. 


REMARKS 


1)  The  boundary  condition  that  f(x,e)  - EPS  at  x - 6 - 0 is  automatically 
imposed. 

2)  If  TBC  or  TPBC  is  input  greater  than  or  equal  200. , the  corresponding  boundary 
condition  is  omitted,  l.e.,  if  YPBC  * 200.,  no  boundary  condition  is 

imposed  on  f ' (x) . 


TURRET 


DATA  BLOCK  H 


DESCRIPTION  : Geometric  boundary  conditions  In  9-directlon. 


FORMAT  AND  EXAMPLE 


8 FORMAT 


3F10 


Note;  NTHBC  cards  are  required. 


FIELD 


CONTENTS 

THETA:  9-Iocatlon  divided  by  turret  half  angle, 

THMAX,  where  the  boundary  condition  Is  Imposed. 
YBC:  Required  value  of  f(9)  at  THETA. 

YPBC:  Required  value  of  f'(9)  at  THETA. 


REMARKS 


1)  The  boundary  condition  that  f(x,9)  > EPS  at  x « 9 > 0 Is  automatically 

Imposed. 

2)  If  TBC  or  TPBC  is  Input  greater  than  or  equal  200.,  the  corresponding  boundary 
condition  Is  omitted,  l.e.,  if  YPBC  ■ 20(1,  no  boundary  condition  Is 
Imposed  on  f'(9). 

3)  Symmetry  about  9 > 0 Is  automatically  imposed. 


TURRET 


DATA  BLOCK 


FORMAT  ASP  BCAMPLK 


8 FORMAT 


CONTENTS 


EPSM:  Distance  from  fuselage  axis  to  mirror  center 
divided  by  RFDS. 


TURRET 

DATA  BLOCK 

J 

DESCRIPTION  . 

Number  of  angular  and  radial  locations  on 
beam  where  phase  distortion  Is  to  be  cal- 
culated. 

FORNAT  AND  EKANPLE 

- 

1 

2.-  3 4 5 6 7 

•8 

FORMAT 

NETAI  I NBBI 


8l  2 


CONTENTS 

NETAI:  Number  of  angular  points  at  which 
phase  distortion  Is  calculated. 

NBBI:  Number  of  radial  points  at  which 

phase  distortion  Is  calculated. 


FIELD  CONTENTS 


1-8  ETAl:  Angle  at  which  phase  distortion  Is 

calculated  In  the  laser  bean. 

REMABKS 

1)  If  more  than  eight  angular  locations  are  considered,  use 
additional  data  cards  to  contain  the  data. 

P 2)  Phase  distortion  Is  calculated  at  each  combination  of 

angular  and  radial  locations. 


TURRET 


DATA.  BLOCK  L 


DESCRIPTION  » Radial  locatloas  In  beam  at  which  phase 
distortion  Is  calculated. 


FORMAT  AND  EXAMPLE 


. RBI 


0.025  10.05 


REMARKS 


rt24  ' 


CONTENTS 

RBI:  Radial  location  in  laser  beam  at 

which  phase  distortion  Is  calculated 


FOBfAT 


8FI0 


1)  If  more  than  eight  radial  locations  are  considered, 
use  additional  data  cards  to  contain  the  data. 

2)  Phase  distortion  Is  calculated  at  each  combination 
of  angular  and  radial  locations. 


TURRET 

DATA  BLOCK  M 

DESCRIPTION  i Number  of  separate  beam  orlentatloas  Co  be  analyzed. 

FOHHAI  AND  EXAMPLE 


TURRET 


DATA  BLOCK  _N 

DESCRIPTION  • Beam  orientation  information. 


FORMAT  AND  EXAMPLE 


1 

2 • 

3 

4 

S 

6 

7 

'8  FORMAT 

PHI 

GAMMA 

AMACHI 

WGHT  ■ 

• 

1 4F10 

30. 

45. 

lA 

1. 

r 

Note;  NBEAM  cards  are  required. 

FIELD  CONTENTS  • ' 

Beam  Aaimuth  angle.  Measured  from  aircraft 
nose  positive  to  the  right,  (degrees) 

Beam  elevation  angle.  Measured  from  the 
horizontal  plane,  positive  upward  (degrees) 
Flight  Mach  number  for  this  beam  orientation. 
May  be  different  then  AMACH  read  in  DATA 
Block  B.  DEFAULT  - AMACH. 

Weighting  factor  which  multiplies  the  phase 
distortion  for  this  beam  orientation. 

Measure  of  relative  importance  to  the  design 
objective.  DEFAULT  - 1.0. 

REMARKS  • - 

1)  If  AMACHI  is  read  as  zero,  it  is  set  equal  to  AMACH 
read  in  DATA  Block  B. 

2)  If  WGHT  is  read  as  zero,  it  is  set  to  1.0. 

3)  This  ends  the  input  data  for  laser  turret 
analysis. 


1 PHI; 

2 GAMMA; 

3 AMACHI; 

4 WGHT; 


V.  SAMPLE  DATA 


Assume  the  turret  shown  in  Figure  1 Is  to  be  analyzed  or  designed. 

The  initial  geometry  of  the  turret,  together  with  the  aircraft  flight  and 
beam  orientation  information,  is  listed  here. 

A.  GEOMETRY 

Rq  ■ 2.5  meters  ••  fuselage  radius, 

c > 0.3  ~ turret  height  relative  to  R^. 

i ■ 2.0  ■■  turret  half-length  relative  to  R^. 

L ••  10.0  > turret  half-spacing  for  Fourier  series  approx. 


6^^^  " 60.0  degrees  ■ turret  half  angle. 

f(x)  ■ 1.0  - 0.6111  Ix^  - 0.180  56x^  - 0.006944  x^  - shape  function  in  X. 

f(e)  - f(x)  - shape  function  in  6 [initially  the  same  as  f(x}]. 

Boundary  conditions  Imposed  in  this  example  are  that  f(x)  * f'(x)  ■ 0 at  x/i  ■ 

+1.0,  and  f(9)  ■ f'(9)  ■ 0 at  9/6  “ 1.0.  The  boundary  condition  that 

” max 

f(x,6)  ■ 0.3  -eatx«9*01s  automatically  imposed  by  the  program. 

A total  of  five  boundary  conditions  is  imposed  on  f(x)  so  that  a^  - a^ 
are  computed  by  the  analysis  program  and  may  not  be  design  variables.  Six 
boundary  conditions  are  imposed  on  f(9)  (including  S3mmietry  requlreaents)  so 
that  only  bg  may  be  treated  as  a design  variable.  The  three  design  variables 
available  for  optimization  in  this  example  are 

Variable  Global  Location 


Because  the  aerodynamic  analysis  is  based  on  small  perturbation  theory. 
It  is  only  valid  if  the  slope  of  the  turret  in  the  x-dlrectlon  is  small. 


Therefore,  constraints  are  imposed  on  the  design  so  that  the  turret  shape 
contained  In  vector  SLOPEX  Is  less  than  0.3  In  magnitude.  That  Is 

-0.3  _<  SLOPE(I)  ^0.3  I « 1,30 

SLOPEX  Is  stored  In  global  locations  139  - 168  Inclusive. 

B.  AERODYNAMICS 

The  aircraft  Is  assumed  to  fly  at  sea  level,  and  the  turret  Is  not 
pressurized  so  that 

DENRTO  - TDENRT  - 1.0 
The  aerodynamic  and  optical  constants  are 

DENGRAM  - 1.405 
AKPRIM  - 0.00023 

c Infrared  radiation 

WAVEL  - 3.4  X 10 

AMACH  > 0.7  nominal.  Mach  number 

C.  MIRROR 

The  mirror  Is  situated  at 

XM  - 0.0 

EPSM  - 1.13 

D.  BEAM  ORIENTATIONS 

Three  orientations  are  considered  as  follows: 

Elevation 


Beam 


Azimuth 


For  brevity  only  three  beam  orientations  are  considered  here. 


Typically  fifteen  orientations  are  used  for  optimization. 

E.  PHASE  DISTORTION 

The  phase  distortion  Is  calculated  at  all  combinations  of  tvo  radial 
and  eight  angular  positions. 

R * O.05,  0.10  relative  to  R^.  ^ 

n - o,  45,  90,  135,  180,  225,  270,  315  degrees 
Note  that  since  the  value  of  R*  Is  0.10,  this  Is  the  assumed  radius 

i 

of  the  mirror.  J 

F.  COPES  DATA 

Based  on  the  above  requirements,  the  COPES  data  are  listed  here  on  a 
data  sheet  reproduced  from  APPENDIX  C.  These  data  are  for  a complete 
optimization.  If  only  a simple  analysis  Is  desired,  these  data  may  be 
run  by  changing  NCALC  in  DATA  BLOCK  B to  1 instead  of  NCALC  - 2 given  here. 


I 


|1 


COPES  DATA 


DATA  BLOCK  A 


TITLE 


LASS  A 


T o fTTMx^^rx^A/ 


DATA  BLOCK  B 


BLaCJt  8 - CPJt^TAou  PAAAhB  T g AS 


NCALC  NDV  NSV  N2VAR  IPNPUT  IFSEMS 


3 3 


IP2VAR 


FORMAT 


20A4 


FORMAT 


8U0 


DATA  BLOCK  C - OMIT  IF  NDV 


BLoca  a.  - c^*fMXAy  j- /^rea^gA  amats^a^ 


IPRINT  I ITMAX  I ICNDIR  I NSCAL  | ITRM  I LINOBJ  I NACMXl 


FORMAT 


8110 


DATA  BLOCK  D - OMIT  IF  NDV 


LAC.k  O - 


FDCHM  CT  CTMIN 


AA/fMSrSAS 


CTL  CTLMIN  THETA 


DELFUN  I DABFUN 


FORMAT 


2F10 


DATA  BLOCK  E 


Bcack  g - MtjJjMrtK  AAAse  DSsr»A  rsojJ 


NDVTOT  lOBJ  SGNOBJ 


J6A 


lEMSEI 

EKai 


2110. FI 


DATA  BLOCK  F - OMIT  IF  NDV 


P-  PeSXCLf  I^AASA  gAS  AXAtXTS 


VLB  VUB  X SCAL 


4 c»6  sVxcse^ 


c»i  A\gXC.£A*^ 


d 


COMM 


FORMAT 


4F10 


SUMMARY  OF  COPES  DATA 


LISTING  OF  DATA  AS  IT  APPEARS  ON  PUNCHED  CARDS 

10 20 20 40 50j^ 

laser  turret  optimization  AT  M - 0.7 
$ BLOCK  B - CONTROL  PARAMETERS 

2 3 

$ BLOCK  C > CONMZN' INTEGER  PARAMETERS 
5 

$ BLOCK  D - CONMIN  REAL  PARAMETERS.  USE  ALL  DEFAULTS. 

0. 

0. 

$ BLOCK  E - MINIMIZE  PHASE  DISTORTION 

3 169  -1.0 

$ BLOCK  F - DESIGN  VARIABLE  LIMITS 

$ COEFFICIENT  A - 5 

-3.0  3.0 

$ COEFFICIENT  A - 6 

-3.0  3.0 

$ COEFFICIENT  B - 6 

-3.0  3.0 

$ BLOCK  G - DESIGN  VARIABLE  IDENTIFICATION 
$ COEFFICIENT  A - 5 

1 6 1.0 

$ COEFFICIENT  A - 6 

2 7 1.0 

$ COEFFICIENT  B - 6 

3 60  1.0 

$ BLOCK  H - CONSTRAINTS 

1 

$ BLOCK  I - CONSTRAINT  ON  SLOPE 
139  168  1 

$ LIMITED  TO  SMALL  PERTURBATION  THEORY 
-0.3  0.3  0.3  0.3 

$ BLOCK  F - END  OF  COPES  DATA 
END 


G.  TORRgT  ANALYSIS .DATA 


Th«  data  required  to  analyze  the  laser  turret  described  above  ace  listed 


here  on  a data  sheet  reproduced  from  APPENDIX  C.  Note  that  the  Mach  number 


for  each  beam  orientation  (BLOCK  N)  Is  read  as  zero  so  that  all  beam  orientS' 


tlons  will  be  analyzed  at  the  nominal  Mach  number  of  0.7.  If  another  run  is 


desirad  at  a different  Kach  number,  only  AKACN  (BLOCK  B)  need  be  changed 


If  certain  beam  orientations  are  to  be  analyzed  at  different  Mach  numbers 


the  appropriate  value  should  be  read  In  BLOCK  N 


DATA  BLOCK  E 


ASARO  I ABARl  TABAR2  | ABAR3  I A3AR4  I ABAR5  I ABAR6  I ABAR7  I FORMAT 


I o.  \-aj005-6  I a.  I 8F10 


DATA  BLOCK  F 


YBC  I YPBC 


BBAR3  BBAR4  BBAR5 


a. 


BBAR7 


FORMAT 


8F10 


FORMAT 


3F10 


LASER  TURRET  ANALYSIS  DATA 


DATA  BLOCK  I 


EPSM  XM 


i.is- 


DATA  BLOCK  J 
I NETAZ  I XRBI 


DATA  BLOCK  K 


ETAl  ETA2 


FORMAT 


2F10 


ETA4  ETAS 


ETA6 


FORMAT 


DATA  BLOCK  L 


RBI  I RB2 


DATA  BLOCK  M 


NBEAM 


RB8  I FORMAT 


DATA  BLOCK  N 


PHI  I GAMMA  I AMACHI  I VGHT 


FORMAT 


no 


FORMAT 


4F10 


i 

1 

1 

1 64 

1 

i 

SONIC 

LASER  TURRET  AT  SEA  LEVEL 

y 

1.0 

1.0 

1.405 

0.00023 

3.4-6 

i 

2.0 

60.0 

10.0 

0.3 

6 

6 

2 

1 

1 

0. 

-.61111 

0. 

-.18056 

0.  -.006944 

0 

0. 

0. 

1 

0. 

0. 

\ 

0. 

-.61111 

0. 

-.18056 

0.  -.006944 

1 

0. 

0. 

5 

0. 

8 

2 

45. 

90. 

135. 

180. 

225.  270. 

(end  of  card)  315. 

5 

0.1 

3 

50. 

30. 

10. 

(New  COPES 

Data  Title 

Card  To 

Terminate  Program  After 

This  Run) 

VI.  SAMPLE  OUTPUT 


CCCCCC  0000000 


eEce,eee  sssssss 


sosssss 


CCCCCC  0000000 


EECEEEE  SSS9SSS 


T r T L E 

LASER  TURRET  OPTINtZiTTON  AT  H ■ o.T 


1)  L«SCK  TUMCT  OvriHiZATXON  AT  M « 0.7 

2)  • SLOCK  S - COitTHOL  PiOAHCTCKS 

S)  2 S 

• ) S SLXK  C • COhmiN  INTeCER  ^ARANETCKS 

0)  • SLOCK  0 . COhmiN  real  RARANeTERS.  use  all  OCRAULTS. 

T)  0. 

S)  0. 

S)  s SLUCK  E • mImimIZE  RHaSE  DISTORTION 

10)  s 10«  -1.0 

11)  s SLOCK  R . OEsiCN  variable  LINITS 

12)  % CoEFRICIEnT  a • 5 

IS)  -3.0  S.o 

!•)  S COERRICIENT  4.0 

15)  -3.0  3.0 

10)  S COEFFICIENT  m . 6 

IT)  -3.0  5.0 

IS)  S SLOCK  6 . design  VARIABLE  IDENTIFICATION 

19)  S COEFFICIENT  4.5 

20)  1 0 1.0 

21)  I COEFFICIENT  4.0 

22)  2 7 1.0 

23)  S COEFFIClpNT  B « 0 

20)  3 00  J.O 

25)  S SLOCK  H . constraints 
20)  1 

27)  S SLOCK  I . constraint  ON  SLORE 
2S)  159  lOS  1 

29)  s liniteo  to  Small  perturbation  theory 

30)  *0.3  0.3  0.3  0.3 

31)  S BLOCK  P . ENt>  OF  COPES  DATA 

32)  ENO 


calculation  control*  nc*lc 

VALUE  HEAN1N6 

1 single  AnALTsiS 

2 optimization 

3 SENSITIVITY 

A THO-VARIABLE  PIINCTION  SPACE 

global  variable  NUMSfR  op  objective  a 169 

multiplier  (NEBaTIVE  indicates  MINIMIZATION)  a ..tOOOEYOt 

CONNin  parameters  (ip  zero*  CONMIN  OEPAULT  hill  OVER«RiOE) 


IPRINT  ITNAX 

ICNOtR  NSCAL 

ITrn 

LINOBJ  NACMXl 

5 -0 

.0  •o 

.0 

•0  5 

PDCH 

POCmm 

CT 

CTnIn 

0. 

•0. 

•0« 

CTL 

CTLmin 

THETA 

PHI 

•o» 

oelpun 

0. 

•0* 

OABPUN 

•0* 

•0» 

•0# 

< design  variable  INPOrmaTiON 

I NON'ZeRO  initial  value  "ILL  OVER-RlOC  HOOULE  INPUT 


0.  V. 

LOhcR 

UPPER  initial 

NO* 

BOUND 

BOUND  VALUE 

SCALE 

! 

t 

••sooooc^oi 

.IOOOOEyOI  'O. 

2 

•«30000E«0t 

,30000C«01  *0, 

i 

3 

-•30000E«01 

.30000CY01  •0. 

OeSXBN 

variables 

D 

. V. 

global 

multiplying 

ID 

NO. 

VAR,  NO. 

factor 

1 

i 

6 

.lOOOOCAOl 

2 

2 

r 

.lOOOOCYOl 

3 

3 

60 

.lOOOOEYOl 

CONSTRAINT  INPORMATIon 
there  ARC  I constraint  sets 


69 


NORilALl/ATION 

factor 

,50000e*00 


UFFCR 

SOUND 

SOOOOCaOO 


nORn^LIZATION 

Factor 

.sooooe^oo 


SLOSAL  OLOBAC  lXNEAR  LONCR  I 

lO  VAR.  1 VAR.  2 to  Bound 

t ISO  IBB  1 ..SOOOOEaOO 

total  number  of  constrained  FaRANETeRS  • so 


data  storage  requirements 
real 

INFUT  execution  available 
|««  «07  9000 


integer 

input  execution  available 
lOS  Its  1000 


ruliRCT  ANAtrsts  inrut 


TITLE 

SUHSONXC  laser  turret  at  sea  level 


AERO>ORTlCS 

NACH  NUMBERr  AMaCH 

external  density  RATtoN*  oenrto 

INTERNAt  OEnsITY  RATfo*  TOEnRT 
RRESSURE'OENSITY  EXPone'^T*  oencam 
PHASE  DISTORTION  CONSTANT,  ARPRIN 
naVELEnctm#  Ravel 


■ .700 
• 1.000 
> 1.000 
s l.«09 
s .2300e.03 
■ .3A00C-05 


CEONCTRY 

PUSeLACE  RADIUS,  RpUs 

• 

2.900 

turret  HALP-LENCTH, 

9 

2.000 

turret  nALP*AN6LE,  ThnaX 

9 

00.000  DECREES 

turret  HEICHT  PACTOR,  ePS 

9 

.300 

turret  HAlP-SPACInC,  acl 

9 

10.000 

turret  POLVNONlAt  shape  COEFICIEnTS 
X«01RECTI0N,  OROpp  a 0 

coepicients 

.lOOOOE^Ot  0.  -.SIUIEaOO  0. 

0.  •,694tigm02 


BOUNDARY  conditions 
X/L  T Y-PRIMp 

0.000  .100  aoo.Ofls 

•1.000  *0.000  •O.Ooo 

1.000  *0.000  *0.0oo 

THETAaOiRECTlON.  OROpp  a A 
COEPICIENTS 

.lOOOOEAOl  0.  *.A1111E*00  0. 

0.  *.60A«oE*02 

BOUNOaRT  conditions 

THETA/THMAX  Y Y*P«tNE 
0.000  .300  900.000 

1.000  *0.000  .0.000 


location  op  center  Op  mirror 
XP  a *0.000  EPSN  • l.iso 


PHASE  distortion  CALCULATION  POINTS 

ancles 

0.000  as. 000  ao.ooo  13S.OOO  180.000 

225.000  270.000  315.000 

RADII 

.050  .100 


*.lBOS*eaOO 


*.|BOS*CaOO 


BEAN  oPlENTAriONS 


"T 


BEAN 

FMl 

6AHMA 

MACH 

HEICHT 

I 

0.00 

50.00 

.700 

1.000 

* 

2 

85.00 

30.00 

.700 

1.000 

3 

*0.00 

10.00 

.700 

1.000 

fhase  distortion  calculations 

SEAM  orientation  NUMneR  a 1 

AZNUTh  ancle 

« 0 

.00  oegoees 

elevation  ancle 

a So 

.00  DEGREES 

nach  nunben 

s 

.70 

R 

ETA 

X 

r 

A 

N 

0. 

0.00 

0. 

0 . 

.1820Et00 

0. 

.SOOOE'Ot 

0.00 

0. 

.5000E«01 

.t523C800 

.7546C800 

.SOOOE.Ot 

85.00 

.3536E.01 

.3S36C.01 

.1620E«00 

.S477EaOO 

.SOOOE'Ol 

80.00 

.SOOOE'Ol 

•6875E-08 

.1888E800 

.l850E«01 

.5000E.01 

135.00 

,3536E-01 

..3S38E.01 

.2178Ea00 

..S3S1E800 

.$oooc-ot 

180.00 

.1335E>08 

•.SOOOE'Ol 

.2281EaOO 

-.7785e*00 

.SOOOE-Ol 

225.00 

.,3538E>01 

•.3S36C.01 

.2l74E«00 

•.S3S1E800 

.SOOOE.Ol 

270.00 

..SOOOE'OI 

•.2002E-08 

.1848EaOO 

.185oE<01 

.SOOOE'Ol 

315.00 

-.3536E-01 

.3536E«01 

.1629E800 

.S477E800 

.lOOOEtOO 

0.00 

0. 

.IOOOEaOO 

.IIOREaOO 

.IOOIE'AOI 

.IOOOEaOO 

85.00 

,7071E-01 

.7071E«01 

.1307E>00 

.1004E801 

.lOOOE^OO 

80.00 

.1000E«00 

.1335E.08 

.1828C800 

.7826E-01 

.lOOOEfOO 

135.00 

.7071E-01 

-.7071E-01 

.2388E800 

•.1070E*01 

.1000E«00 

180.00 

,267oE-08 

•.1000E«00 

.2645E«00 

•.1581Ea01 

.lOOOEtOO 

225.00 

-.7071E-01 

-.7071E-01 

.2386E«00 

•.1070E801 

.lOOOE^OO 

270.00 

.. lOOOE^OO 

•.4005E>08 

.1828EfOO 

.742bE»01 

.lOOOE^OO 

315.00 

•.7071E-01 

.7071E«01 

.1307E800 

.1089E801 

ZE*M1ckc  COEPFICIENTa/ 
«VER«CE  a .10S83E>92 
TItTf  X a .t2S1«E'»A0 
FOCUS  a .30067E«a3 
tSTlC  a -,2037aE«o2 
COMA  a -.l3262E«n3 


t a -.3053*c>«2 
.l2277E.oa 

..21«63C>06  .,48326f03  .25331C-02 


FMASE  OlSrORTtON  calculations 


SEAM  orientation  NUMreR  a 2 

AZNUTH  ancle 

a 85 

.00  decrees 

elevation  ancle 

• SO 

.00  DEGREES 

naCh  number 

• 

.70 

R 

ETA 

X 

T 

A 

N 

0. 

0.00 

o‘. 

0« 

.2S32C800 

0* 

.SOOOE-Ol 

0.00 

8, 

.5000C-01 

.18036800 

.78726800 

.SOOOE-Ol 

85.00 

.353*e-01 

.35386-01 

.21886800 

.23886800 

.5000E-01 

80.00 

.SOOOE'Ol 

.88756-08 

.28016800 

-.88086800 

.SOOOE-Ol 

135.00 

.3538b-01 

-.35386-01 

.28776800 

-.88086800 

.5OOOE-OI 

180.00 

.1335E*08 

-.$0006-01 

.30626800 

-.75526800 

.SOOOE-Ol 

225.00 

-,3536C-01 

-.35386-01 

.28336800 

-.18826800 

.SOOOE-Ol 

270.00 

..SOOOE-Ol 

-.20026-08 

.28386800 

.45836800 

.SOOOE-Ol 

315.00 

. .35386-01 

.35386-01 

.2073E800 

.84226800 

.IOOoEaOO 

0.00 

0. 

.11016800 

.18006801 

72 


.lOOOEvOO 

•9.00 

,70712-01 

,7071C-01 

>,1 0*82*00 

.*380C*00 

.lOOOEtOO 

90.00 

,10002*00 

•1S39C-08 

.2*«0E*80 

-.*o74e*00 

.lOOOEvOO 

139.00 

,70712-01 

-.70712-01 

.3411C*00 

..18212*01 

.tOOBE^OO 

leo.oo 

,2*702-08 

-,1000C*00 

.3947E*00 

., laBoE**! 

.I080E«00 

229.00 

..70712-01 

-.7071C-01 

.3077e*00 

..3232C*00 

.10802*00 

270.00 

.,10002*00 

-••OOsE-OB 

.23092*00 

.89*02*00 

.10002*00 

319.00 

.,70712-01 

.7071E-01 

.19302*00 

.17992*01 

ze*NicKc  cocfficicnta/ 
AvCRAce  • .a«r7*e«o2 
TILT,  X a .I33«6e*fl0 
F0CU3  a .37«t2e-n? 
AST IS  a .2*s3Se-A2 
CON*  a .S90SSC-05 


T a ..TSSlTc-Ot 
.5eT09E-02 

.TT«99E*o«  .32«78e*02 


.2T8ose«oa 


^MSC  OtSTOHTlON  CALCULATIONS 


bean  orientation  NUNnen  ■ s 


• 

AZNUTH  angle 

a 90 

.00  decrees 

9 

elevation  angle 

a 10 

.00  DEGREES 

MACH  NUMBER 

a 

.70 

( 

R 

ETA 

X 

y 

A 

N 

0* 

0,00 

0. 

0* 

.3440E*00 

0* 

.9000E.01 

0.00 

0. 

.5000C.01 

.27082*00 

,71852*00 

( 

.9OOOE-OI 

45.00 

.353*2-01 

•395*2-01 

,29282*00 

.4*8*2*00 

J 

1 

1 

.9000C.01 

Ro.oo 

,5000E-01 

.**752-09 

.34342*00 

-.1814E-01 

.90002-01 

135.00 

,353*E-01 

-•35362-0 1 

.39012*00 

-.2*122*00 

.SOOOE.Ol 

100.00 

,15352.08 

..5000E.01 

.40**2*00 

-.41992*00 

1 

.90002.01 

229.00 

-.353*2.01 

-.393*2-01 

.39012*00 

2*122*00 

.9OOOC-OI 

270.00 

-.5000E-01 

-,2002C-08 

•34342*00 

-• lOlaE-ot 

.SOOOE-01 

319.00 

-,353*2-01 

,353*2-01 

.29282*00 

,4*0*2*00 

.1000E*00 

0.00 

0. 

.10002*00 

,17032*00 

.1*922*01 

,10002*00 

45.00 

,7o7lE-01 

.7071E-01 

.23*12*00 

.98182*00 

A 

.1000E*00 

90.00 

.10002*00 

.13352-00 

,34l3E*00 

-.97922-01 

i 

.10002*00 

135.00 

,70712-01 

.,707tE.01 

.42492*00 

..**172*00 

i 

.1000C*00 

180.00 

.2*t0E-08 

-,1000E*00 

•45142*00 

-.873*2*00 

1 

.ioooe*oo 

225.00 

-,7o7lE-01 

-.TOTIE-Ol 

.42492*00 

..**172*00 

; • 

.1000E*00 

ZTO.OO 

.,1000C*00 

-.4005E-08 

.3al32*00 

-.97922-01 

{ 

i 

.lOOOE^OO 

315.00 

-.70712-01 

,7071E-01 

.23*12*00 

.98102*00 

t 

i 

» 


ZERMICKE  COEFriClENTs/ 

average  a .t4l55E«nt 

TILT,  * a .9<)fcI3C«Qi 

FOCUS  a .62398E«A2 

AST  IS  a .818492-03 

COMA  a .303l7C-ft2 


V a •,79724E-03 
-.72295E-04 

,100SSE-04  ,29599E-02  .t798SC-02 


f 


FLOM  field  for  theta  . o.OOO  OESREeS 
NACH  number  « .700 


I 


X 

-••OOOC^Ol 

••j*ooe«oi 

•.3200E«01 

•.asooE^oi 

••2«00E>01 

-t2000E>01 

-.UOOE^Ol 

-.1200E>01 

>.6000E«00 

-.•OOOE^OO 

t«97aE*l3 

.4000E*00 

•aoooE^oo 

.1200E»01 

.t600E«01 

,2000E*0t 

•2«00E«01 

.2800E«0t 

.3200E>0I 

,3600E>0I 

.aOOOE>01 


R 

.lOOOE^flt 

.lOOOEtftt 

.lOOOE^ai 

.lOOOE^ni 

.lOOOE^^t 

.lOOOEtni 

.1028e«9i 

.II03E«ol 

,tlR7Etil 

.t272E>oi 

.IsOOE^fll 

.t272E*oi 

.l>R7E«ni 

.lt03E«ni 

,t02eE>nt 

. lOOOE^Qi 
.lOOOEtflt 
.lOOOE^Al 
.IOOOE^AI 
(lOOOE^At 
.lOOOE^fll 


RMI 

-.a757E-02 

-.7t5»E-02 

-,7146E-02 

•.7275E-02 

.•.1601E-01 

-.4092E-01 

-.7512E-0I 

•.91«1E>01 

-.7710E-01 

-.ajiSE-Ol 

.53’‘e-l4 

.423SE-01 

.77t0E-0| 

.9t41E.gi 

.75»2E-0t 

.4042E-01 

.l60iE«01 

.7279E.02 

.7l4dE«02 

.71516.02 

.47576-02 


U 

-.75156-02 

•.33#4C-®2 

.21046.02 

-.*0346.02 

..40206.01 

-.02036-01 

-.00*16-01 

-.375*6-01 

.37036-01 

.00306.01 

.lOOaE^OO 

.00306.01 

.37036.01 

..375*6.01 

-.00*16.01 

-.82036.01 

..40286.01 

..*0346.02 

.21046-02 

-.330*6.02 

-.75156.02 


. V 

.10706.02 
.*2756.02 
.79406.03 
-.11046.01 
..*4056.02 
.30*06.01 
.11*OE«00 
.1303e«00 
.13706400 
.75106.01 
-.05336.1* 
..75106.01 
-.13706400 
..15036.00 
-.11*06400 
-.30*06.01 
.*4056-02 
.11046.01 
-.70406.03 
..*2756.02 
-.10706.02 


critical  PR6SSURC  CuirFPlClENT  ON  SURFACE  a *1.7*305 


CP 

.15036-01 

.*7336-02 

-.43006-02 

,13756-01 

.00526-01 

.1**16400 

.1*756400 

,407*6-01 

-.02036-01 

-.10*26400 

..21*06400 

-.10*26400 

-.02036-01 

.407*6-01 

.1*756400 

.1*416400 

.00026-01 

.13756-01 

-.43806-02 

,*7336.02 

.15036-01 


SURFACE  definition  (EPS  a .300) 

POLTNONUL  COEFICIENts  (A(I),  Iao,H*XK)  IN  X.OIRECTIQN 

.100006401  0.  -.*11106400  0.  .110056400 

0.  -.*0440aa02 

POLTNONIAL  CoEFiCiEnts  (B(i)>  lao.MXXP)  in  THETA-OIRECTION 
.100006401  0.  -.103216401  0.  ,6**776400 

0.  -.*0440p«02 


coordinates 

X Z Z-PRINE 


-2.200 

0.0000 

0,0000 

-2.000 

,0000 

0,0000 

-1.000 

,00*0 

.0700 

•l.*00 

.0270 

,1375 

-1.400 

.0*10 

.1*18 

-1.200 

.1032 

.22*3 

-1.000 

.1500 

.2375 

-.004 

.10** 

.2240 

..*00 

.2385 

.1004 

—.400 

.271* 

,1577 

—.200 

.2027 

.0722 

.000 

.3000 

-.0000 

.200 

,2027 

-.0722 

.400 

,271* 

-.1377 

.*00 

.2305 

-,100* 

.000 

.10** 

-.22*0 

1.000 

.1500 

-.2375 

1.200 

.1032 

-.22*3 

1.400 

,0*10 

-.1*18 

l.*00 

.0270 

-.1375 

l.OOO 

.00*0 

-.0700 

2.000 

.0000 

0.0000 

74 


2.20« 

0.0000 

0.0000 

TMCT* 

RADIANS  OeCREES 

z 

z-prine 

•t.isz 

-66.0000 

0.0000 

0,0000 

-1,047 

-60.0000 

.0000 

-.0000 

-.042 

-34,0000  . 

.0107 

.1047 

-.ass 

-40.0000 

.0387 

.3286 

•,75S 

-42.0000 

.0777 

.4082 

-.020 

-36.0000 

.1225 

.4300 

-.S24 

-30.0000 

.1684 

.4302 

-,4t0 

•24,0000 

.2114 

.3850 

-.314 

-10,0000 

.2««2 

.3130 

-»20O 

-12.0000 

.2764 

.2200 

-.lOS 

-6,0000 

.2^40 

.1130 

.000 

.0000 

.3000 

—.0000 

.lOS 

6,0000 

.2840 

-.113* 

,200 

12.0000 

.2764 

-.2200 

.314 

10.0000 

.2482 

-.3130 

.410 

24.0000 

.2114 

-.3850 

.324 

30.0000 

.1684 

-.43o2 

.620 

36.0000 

.1225 

-.4300 

.735 

42.0000 

.0777 

-.4082 

.030 

40,0000 

.0387 

-.3286 

.042 

54.0000 

.0107 

-.1047 

1.047 

60.0000 

.0000 

.0000 

1.152 

66.0000 

0.0000 

0.0000 

SUM  07 

OOUANES  07  PHtSE 

distortion 

a .36648E«02 

i 


75 


1 


C 0 N N I'  N 
PORTRAN  RROCRAN  for 
CORRTRAINeO  FUNCTION  NlNlMIjATION 
NASa/anCS  rcSCaRCN  ccnter,  NOFFCTT  field*  CAL^F, 
version  II  JULY*  1975 


E 

!■■ 

! r 


: t 

j • 

1 


i 

I 


constrained  FUNCTION  ntninxzation 
CONTROL  FaRANETERS 


IFRINT 

NOV 

ITMAX 

NCON 

NSIOE 

ICNOIR 

NSCAL 

NEOO 

S 

3 

20 

AO 

1 

A 

>9 

-0 

LINOBJ 

ITRH 

N| 

NE 

N3 

NA 

NS 

-0 

3 

s 

AA 

S 

s 

10 

CT 

•.lOOOOEtOO 

theta 

.10000C>0> 

FOCH 

•1«900C*01 


CTNIN 

CTL 

CTLRIN 

•«OOOE»OE 

>.tOOOOE«01 

.lOOOOC-02 

FHI 

OELFUN 

OABFUN 

SaooOc^OI 

.I0000E*03 

•3AAASC-01 

?t)C*<N 

,»00«0E-0I 


LOMCR  rounds  on  OECIstON  VARIARLCS  (VLB) 

t)  ••SOOOOE'fOl  ..30000C*01  •.SOOOOEtOl 


URRCR  sounds  on  OEClslpN  variables  (VUS) 

I)  •SOOOOE^OI  .SOOOOE^OI  ,30000E^Q.l 

ALL  constraints  ARC  i'iNCAR 


i 


Initial  function  inFarnation 

OBJ  • •SSSASEC^OS 

DECISION  variables  (V.vECTOR) 

1)  9*  ..ARAAOE-DS  -.ARAAOE-OE 


constraint  values  (C^vECtOR) 


1) 

-.lOOOOEtOI 

..lOOOOE^Ol 

7) 

•.1«7ESE«01 

..SE7S3E400 

13) 

-.17aa2E*01 

..23S7AC«00 

-.IlSRSE^Ot 

•.tAOIlb*Ol 

-.ITRlOCAOt 


•.SAOEIE^OO 

•.5RBSRE*00 

••20R0SC«00 


..iSEIBEvOt 

>.l7ROlE«0t 

-.ittrae^oi 


1 


•.ATSlAEfOO 

*.ERRRaEtOO 

•.2203REt«0 


76 


4 


19} 

..17315001 

..26850  000 

..16495E«01 

..35047E600 

..t5300C60t 

..46200C600 

25) 

..1«02SE.01 

..59771B.00 

..12487E^01 

-.75130E600 

..10841001 

..91S86E600 

St) 

•.91s86EtOO 

..1084tE«Ot 

..75130E600 

-.12487E601 

..5977ie600 

..140232601 

S7) 

..46200E600 

..15300C«01 

.,35047Et00 

..1049SC601 

..20850E600 

..173152601 

oS) 

..22039EtOO 

..l7796E«0t 

.,20905C«00 

-.17910E601 

..23576E600 

..17642E601 

•9) 

..29994E*00 

..t700tC«01 

.,39009E.00 

..16011C601 

..S27S3E600 

..14725E601 

55) 

•.67816CA00 

..13218Ct0t 

.,840212600 

-.11598E601 

..100002601 

..100002601 

seciN  treRATioN  NUMern  i 

i;  t 

|;  I > CT  ■ •,t0000c«00  CTL  ■ -.lODOOe-Ol  PHI  s .sooooe«oi 

j THeRC  ARE  0 ACTIVir  CONSTRAINTS 

• i 

I I THERE  ARE  0 VICLAfcn  CONSTRAINTS 

’ i 

THERE  ARE  0 ACTiVp  SIDE  CONSTRAINTS 

I:  •!  6RAOIENT  OP  OBJ 

1)  .S34aSE>03  ..7043*E*03  .19787Et«2 

[ search  direction  (S*vCCTOR) 

1-  I)  -,7S43SEt00  .tOOOOE^Ot  -.Ea092E«0l 

ONE-OIHENSIONAL  search 

initial  slope  a •.ltttC>04  proposed  alpha  • .329HE«02 


i ■' 


I 


• • constrained  one-dimensional  SEARCN  INPQRhaTiON  * • • 


PROPOSED  DESIGN 
ALPHA  ■ .329SSC-02 

l-VECTOR 

••2S0SC-S2  ..70S7c«02 

OSJ  ■ .33029E«02 


•.IOOOC4«l 

•,l*74i«01 

-.t75«E401 

•.tS37c«01 

•»7397E^00 

••2O7SE400 

•.S034E*00 

••SUU^OO 


VALUES 

-•IOOOe^OI 

*.324SEt04 

••2B03Et00 

••4430C490 

•.I2*SC«01 

•.t702E«01 

-.l497E»Ot 

-.IISaE^OI 


..t2l9c«01 

..|749E«41 

..1603001 

•.ll90E«0t 

..S960C^OO 

..2S06Et00 

..SSS1C.»04 

..lOOOEtOl 


.,7805e*00 

•,2S10E«00 

..3171C*00 

•.•097E400 

..1403Ct01 

•,17«9E>01 

•,1612E«01 

•.lOOOEtOl 


..1407e«Ql 

•.l786Et41 

•.1589E^01 

.,1037c*01 

..4749E>00 

.,2347E»00 

.,S043E«00 


-.5927e*00 

..2l44Et00 

..4113E«00 

..9629E-00 

..|52SEt0t 

-.IToSEfOl 

..1496E601 


..ISSOE^OI 

•.1785E*01 

..1472E*01 

..8833E»00 

..3738Et00 

..2S21E«00 

.(6486000 


.,440SC*00 
*.2t49E*00 
..5283E«00 
-.1 llTE^Ot 
..t626C*0t 
-,1740E«01 
..liSlEtOl 


TMO-POINT  interpolation 


PROPOSED  design 
alpha  a .16492L.0t 


J 


77 


7a0Te*02 


20MSe*02 


COMSTHAINT  VALUES 

ioo9e«ot  >.ioooeAOi 

1«9«E«01  •.3s«6E*®1 

i*3Qe«ot  •.3*®se*oo  ..i< 

ilOTsC^OI  •.92«ie«00  -,r 

,6*22e«00  *.t332et0t  ..3* 

>«132E«00  •.tss%e*01  xS' 

,3t7se«00  •.t683et01  ..3' 

,7lS7e»00  •.1280e«01  .•!< 

TMKCC'POINT  InTCMOLaTION 


92S8e-0t 

238«e«00 

7937e»00 

12a7e«01 

iS3ie«ot 

l*82E^0t 

14««Et01 


1997E401 

1762E401 

120*Et0t 

7531E400 

ttkTlE^OO 

S177E400 

S309E«00 


ESUEaQO 

1287E400 

9548C440 

nstetoi 

t47«E40l 

l6*2E«0i 

lS88£40t 


1749E401 

1871E«8t 

1345E401 

S490E400 

S283C400 

3375E400 

AilSE^OO 


5418E480 

$S27E-0t 

5iise>oo 

t043E40l 
t407E40l 
, 14298401 
,16SSE^01 
,1000E401 


980P0SE0  design 
alpha  a ,18127E->01 
X-VECTOP 

I378E-0I  .ItlSE'Ol 
O0J  • ,194788402 


79338.02 


CONSTRAINT  VALUES 
10008401  ..lOOOE^Ot 
20OOE4OI  .41458.13 
UISE4OI  ..iOObC^OO 
10448401  ..95648400 

>4«OOE400  ..13408401 

,42978400  -.15708401 

,31928400  -.14018401 

,7078E400  -.12928401 

• * • END  OP  ONE-OlHpNslONAL  S8*PCH 

calculated  alpha  a .181278-01 

OSJ  a .1947848402 

DECISION  VAPIASLCS  (X-VECTOP) 

1)  -,1376Sc.01  .111838-01  -,745328-02 

COHSTRAINT  VALUES  (D^VECtOR) 

1)  »,10000E401  -.10000 

7)  -,195oSE401  -.49484 

13)  -,180198401  -.11019 

l9)  -.146458401  ..53333 

25)  -,109368401  -.95690 

31)  -,737018400  -.12630 

37)  -.332698400  -.19674 

93)  -.306268400  -.161^7 

49)  319198,00  -.16808 

55)  -.3»3078400  -.19890 


49408-01 

24138.00 
0266E400 

12638.01 
,15218401 
,16748401 
, 14048401 


19318401 

1739E401 

11738401 

73708400 

47068400 

32308400 

31608400 


20878400 

11818400 

683O84OO 

11798,01 

,14«7E401 

,16508,01 

,1600E401 


I791e401 

l082E40t 

13158401 

02378,00 

53268400 

3S03C400 

,40008400 


31228400 

3103E.01 

5355E4OO 

10728.01 

14078.01 

16148.01 
,16608401 
,10008401 


14088401 

19698.01 

14648.01 

92768.00 

59258.00 

38638.00 
,33408,00 
,10008401 


208738.00 
310298-01 

384398.00 

826608.00 

117938.01 

140738.01 

157038.01 

167428.01 

160008.01 

100008,01 


179138401 

196908.01 
161598401 

117348.01 

825668.00 

592338.00 
429718400 
325788400 

400008.00 
,100008,01 


312208.00 
414488-13 

241338.00 

684998.00 

107298.01 

134008.01 
,132148,01 

16*978,01 

,166028,01 

,129228,01 


148788.01 

200008.01 

175878.01 

131308.01 

927578.00 

659998.00 

478648.00 

350288.00 

339788.00 
,707788400 


i 


CT  * >,100006^00  CTL  • •.tOOOOC-Ot  PHI  • .sooooe«oi 

TMCPC  ARC  1 ACTIVr  CONSTRAINTS 

CONSTRAINT  NUNBCRS  Ab^ 

IS 

THCRC  ARC  0 ViOLAtCO  CONSTRAINTS 

THCRC  ARC  0 ACTIVir  SloC  CONSTRAINTS 

SRAOICNT  op  OBJ 

I)  .ICISScaOS  ..SsrtTEtOJ  .SORIIEAOI 

SrAOICNTS  of  ACTlVC  «nO  VIOLATED  CONSTRAINTS 
constraint  NUNBER  to 

t)  -.ISSaSEtOZ  .12633EA02  0. 


PUSH-OFF  FACTORS.  (TnctACI).  IsI.NAC) 

1)  0, 

CONSTRAINT  PARAhETCR.  bETA  s .TARRBEaOO 

SEARCH  direction  (S^vEC^OR) 

I)  .IOOOOeaOI  .9769SEAO0  •,34«aOC>Ol 

ONC-OIHENSIONAL  search 

initial  slope  « -,aNOlEA03  proposed  alpha  ■ ,8655E-02 


« • constrained  ONE'OlNpNSlONAL  SEARCH  INRORNATiON  • • • 


PROPOSED  design 
alpha  a .86S54C*02 
X*VCCTDR 

•.S109E.02  .t9S4E-0t  ..77S6e-02 

OBJ  a ,1S172Ea02 
CONSTRAINT  values 

••ISSOEaOI  •*1000Ea01  ..lS34EA0t  •,466SEa00  •.1842Ca01  •,tS80EA00  >.|982Ea01  •.1844E«01 

•.2000Ca41  ,b329C«13  ..I437EaOI  •.6340E>0t  •.la23CA01  -,1770Ea00  -,1684EaOI  •.3t61EA00 

••I53SEa01  -.4«2iea00  ..|398Ea01  -,4022EaOO  •.t2T2E«01  •.7280EA00  -,U64Ca01  -.SiSrEtOO 

•.107SC«0I  •.924SEaOO  ..1004EaOI  •.99«4E*00  •.9446EaOO  •.lOSSEtOl  «.8931Ea00  •.UOTEaOI 

•*SR33E«00  -.1157CA01  ..TBPaEACO  -.IEUEaOI  •.TSSAEaOO  •.t273EA01  •.SSUEaOO  -.1349EaO| 

••5*29Et00  •.1437Ea01  ..4627E«00  -.ISSTEaOI  -.SSPSEaOO  ..l644EA0t  •.2S41Ea00  '•.I74aEA0t 

•*t704CA00  •.1830E701  ..IZaIEaOO  •,t874EA0t  •.lABSEtOO  •.ISSIEaOI  •.2720Ea00  •,1728Ea01 

•.53S9Ca00  •«14S|EaOI  ..IOOOCaOI  -.IOOOCaOI 

TNO-PoINT  INTERPOLATton 


PROPOSED  DESIGN 
ALRHA  ■ .1376Se«0t 

X-VCCTOR 


•.SS29C-14 


2«*Se>41 


7934e-02 





’ ^ 


p I 

1^:  i 


f 

4 

i ? 


,ij 


OSJ  • .tU3«e«02 


CONSTRAINT 
>1000C40> 

,2oooe40i 
.t492e4<>l 
,l094e«01 
•fsise^oo 
,*4tsetoo 
>S2S0E*41 

•43«2e40o  •.tssie^ot  ..ioooe^oi  • 


VALUES 

•.tOOOE^Ol  ..iSAtC^Ol 
.769BC-I3  ..1417E«01 

■•5074C400  ..iSsREAOt 
-.RoSAE^OO  ..tO44E^01 
"•t044E«01  •.90S6E400 


-.I3S4E401 

«.19t7E70t 


.,5079E»00  - 


,4392|aOO 

.assoE.oi 

.A415E400 

.95lSEt00 

.1094E401 

.1492C40t 

.20OOE4OI 

.tOOOEAOl 


•.t672eA01 

•.1788CAOt 

•.1247E40t 

•.1015E401 

'••4> 1C400 

•.3602C*00 

■,tlT9C-03 


•,t281E780 
•.2117C400 
««7S34E400 
..9892E«00 
•.1  l59Et01 
•.t*40EAOt 
•.2000E701 


•.2004E«0t 

•.U40E401 

•.11S9E401 

•.98S2E400 

>,7S34E*00 

•.2117C400 

>.128iE«00 


«.U79e.03 

-.S*02Et00 

•.8411E400 

•.101SC401 

•.1247C«0t 

*(1788E40t 

•.1872001 


• • • EnO  op  ONE-OlHrNSlONAL  search 
CALCULATED  alpha  a .13765E.01 


i 

08J  a 

.13A984EA02 

■ 

DECISION  variables  ( 

(.VECTOR) 

i ' 

1) 

-.39290E-J4 

.24A31E«0i 

•.79342E*02 

constraint  values  (G 

ivFCTOR) 

1) 

•.lOOOOCtOl 

..lOOOOE^Ol 

•.iSfcOsETOl 

•.43920CT00 

•.18719EA01 

•.1280AEA00 

7) 

•,19999C»01 

-,1!790C-03 

•.2ooooeAOi 

,76975E-13 

-,t9l79E*01 

•.82903C>01 

i 

IS) 

-.17883E401 

..2tl72E*00 

•.16398ET0J 

••360l6E^00 

..1492IE401 

•.90709E400 

1’) 

•.13989E401 

.,64148E^00 

•,I2466E«01 

• .7S34SE4.00 

..119B9E401 

•.84107EAO0 

29) 

••109aaE>ol 

•.90S61E«00 

•.10489e*01 

-.95la6E>00 

..10148E401 

•.96S22C40a 

31) 

-,98922c*00 

..lOlUSEtOl 

-,95146t*00 

•.104R5C401 

.,90S6Ie«00 

•.l094aC.0l 

37) 

•,«4107£*«0 

..tl589et01 

-.75349£t00 

•.12466E«0I 

..64148E400 

•.139a9E«01 

43) 

-.50789ETO0 

. l4921E«01 

•,360l6ET00 

•.16398F40I 

•.2ll72t*00 

•.17885E«^01 

49) 

•.82903E.01 

-.lOlTSEtOl 

0, 

•,20000C401 

-,1179oe-03 

•.19999E401 

99) 

*.128O9EaO0 

..l87l9Et01 

• .43920C'A0o 

-.1S608E401 

..10000E401 

•.IOOOOEaOI 

SEOIn  iteration  NUNBrr  3 
CT  a •.IOOOOE4OO  CTL  a 


•.10000E>01 


PHI  a 


•SOOOOEaOI 


THERE  ARE  4 ACTiVr  CONSTRAINTS 

CONSTRAINT  NUMHERS  Arc 
8 10  $1  93 

there  Are  0 VlOLAfcO  constraints 

THERE  ARE  0 ACTIVr  SlOE  CONSTRAINTS 


SRAOIENT  OP  OBJ 
1)  .39138C403 


,6«090E403  .67398eA01 


SrAOIENTS  op  active  and  violated  CONSTRAINTS 

CONSTRAINT  NUHSER  8 

1)  ••12733Ea02  .16704E*02  0. 

CONSTRAINT  NUHSER  io 

1)  -.12342CA02  .12*33Et02  0, 


f 


CONSTRAINT  NUHHER 

1)  .12S42E«02  .12S33EA02  0. 

CONSTRAINT  NUMBER  b3 

1)  .t2733ET02  .I6704E«02  0. 


RUSH-OFF  FACTORS.  (ThETAII).  lal.NACl- 

>)  0.  0.  0.  0. 

constraint  PARAhCTER.  beta  a ,Il624E*01 

SEARCH  direction  (S-vEpToR) 

1)  -.SRESIE^OO  ..lOOOOEtOt  -.iceose-oi 

ONE-OIHENSIONaL  search 

INITIAL  SLOPE  a .,8i>3SE«03  PROPOSED  ALPHA  a ,3056C-02 


• • CONSTRAINED  ONE-OIHpNSlONAL  SEARCH  INFORMATION  • • • 


PROPOSED  design 
alpha  s .30Sb2F>02 
X-VECTOR 

-,18nE-02  ,2lS7e«0t  •.79SSC-02 

OBJ  a ,1493dE»02 


CONSTRAINT  VALUES 


-.lOOOE^Ol 

-•lOOOE'fOt 

..lS35E«01 

..46S2E«00 

-, 1 839E*0l 

..t6UC«00 

-.1972E»0I 

-.28tlE-01 

•.i9a4c«ot 

l626E*01 

-.19lSE*^01 

-,84s9E-01 

-.iaOOE^Ol 

-.2004EtOO 

-.1662E^01 

•.3ia4E-00 

-,lS20C*0i 

-,4799E*00 

..tSSBE^Ol 

-.t>123C«00 

-,1272E>01 

•,72aoE«oo 

• .U7bC*01 

•.82i7E«00 

-.llOOE^Ot 

-»8997E*00 

..I041E^01 

•.9592E+00 

-.9927E'»00 

•.1007Et01 

-,9497E*00 

-.lOSOE'fOl 

-,9050E*00 

•,Io95E»01 

..8S|9C«00 

-.llABE^OI 

-,78S0C.00 

..|2lSE«01 

•.7009E«00 

•,t299C.0l 

.,S9a4E«00 

•.1402E+0t 

..a80lE«00 

-.ISEOE^Ol 

-.3S27E^00 

», 1647C^01 

• .22T7E*^00 

-.I772E»01 

**1225E*00 

•.1877E>0> 

-•*096E-01 

-.1939E+0I 

•.7422E-0I 

•.t926E«0I 

-.EOlSEtOO 

-.1798E»01 

-,4909E*00 

-.tSOREfOl 

••lOOOEtOl 

-.lOOOE^OI 

TNO-POINT  INTERPOLATton 


PROPOSED  design 
alpha  a .103P1C-02 
X-VECTOR 

•.•139E-03  .2359E-DI 


-.7945C-02 


OBJ  a .14034Eo02 


CONSTRAINT  values 

-.lOOOEv*!  -.t0OoE*01  ..1552E«01  -.4a80E.00 
•.i994C4«l  •.55l2E<*02  ..|9t7Et0t  -.a321E-01 
•.iBOaCtil  -,44S4E«00  ..I3ASE-01  -.ASlbEtOO 
••IRNgCvSI  •••43tE>00  ••t04^C«01  -.R^AlEtOO 
•.•tB7t«OR  -.I0P4E«0I  ..BSTAE^OO  -.lllSE^Ot 
•.*4«9C4**  ••I373C*01  -.avBSEtOO  •,i502C«0I 
-.RRO>€-t|  -.|9««C«0I  ..2067E.01  -.1979C*0t 


-.IS6IC«01  -.1393E«00  -.1990E*01  -.9A06E-02 
-.1792E*0»  •.2079EtOO  -.IbATEfOl  -,5528E+00 
•.I255E«0l  -.TaaSE.OO  -.llPSLtOl  -.aiSEEtOO 
•.1007E»«1  -.9927E^00  •.9732Et00  -.t027E70t 
• .8221C4^00  -.llTaC.Ol  -.73S6C«00  -.lEPaEtOl 
•.3s76E«00  -.l642E«0t  -.2171C.00  -.ITaSE'VOl 
-,2S24E-0t  -.l97SE«0t  -.ISSOEtOO  -.IBATEtOI 
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f 


•,«s*7c«oo  •.i5a3e*oi  ..loooe^ot  -.toooe^oi 

THRCe-POlNT  INTel)m«TlON 


RROROSEO  OestCN 
ALRH*  a .306ise*03 
X-VCCTOR 

•.iatae«03  .2«32E«0t  .«7a37E.02 

OBJ  a «13750E^02 


CONSTRhXNT  values 


• 

•.ioooe«ot 

•.lOOOfaOl 

•«lSSBcaOt 

•.441BE+00 

-.1864E401 

•.lSl4CaOO 

-.IWEaOl 

-.2922C>02 

t 

« 

..l99BE>0t 

•.1624C.02 

..l4l7C«0t 

•,8271E.01 

-,l7B4Et0t 

•.2104Ev00 

•.1442EaOI 

•.3saocaoo 

! 

-.I44SEV01 

«.SOSlEaOO 

•.iSAlEaOl 

•,43a4Et00 

-.t2«9EaOl 

-.7S04Et00 

•.tlOIEaOl 

•.Bi93Ev00 

-.lO’SCaOt 

-.PoSoEaOO 

..10486^01 

*.PS22Ea00 

•.IOt3C*Ot 

..4874e«00 

•.9B17Ca00 

•.lOlOE'fOl 

> 

••44fe«Ea00 

•.t0s3E+0l 

•.4002EtOO 

-.ItOOEaOl 

••BJSSEaOO 

-.ItfcSEvOI 

-.74B2£»00 

•.t252EaO> 

««B372Et00 

•.(363Et01 

..SOSIE^OO 

-,t495E»01 

-,354aE«.0O 

..IbOtEtOl 

•.213iCaOO 

•.17B7fcTOI 

•.B6SlE«ai 

•.14l3Ea01 

..6i07C*02 

•.IRaaETOi 

•t75‘*»E-02 

-.1992Ea01 

•.13S4Et00 

•.IBbSETOl 

>.«4««E*00  •.1S56C>01  ..lOOOE^Ol  «.IOOOE«01 

a * * EnO  Of  ONE'OlMrinSloNAL  SEARCH 
CALCULATED  ALPHA  a .B4369E-17 
OBJ  a .13*3S«C>02  NO  CHANCE  OH  OBJ 


OECiStON  variables  (x.yCcTOR) 


' u 

•.35258C-14 

.24631E-0X 

-.79J42E-C2 

constraint  values  (6 

IveCTOP) 

! t) 

•.tOOOOETOl 

..lOOOOEaOl 

•.ISbOBEaOl 

•,43920E«00 

•.lB7t9Ca0t 

•.1280bCa00 

7) 

-,19999e*01 

..H79o£-03 

•.20000ba0t 

,76975E-13 

-.t4t7SE+01 

•.82S03E«0t 

\ 13) 

•.l788JC+0t 

•.2ll72ev00 

-,lb398E+0J 

•,360l6Ea00 

-.1492IE*01 

•.S078b£a00 

»’) 

•.I3S8SE«01 

.,64148CtOO 

•.t24b6E*01 

-,7S345Ea00 

•.ltS89Eaoi 

•.8at07CT00 

«.1094aCt01 

..OoSblEtOO 

•.IU485CT0t 

•.9S14«E«00 

..10148CTOI 

•.9BS22CvOO 

3t) 

••9a522EaOO 

.,I0I4«E>01 

•.9S»'*bt*00 

•.l04«sEa0t 

•tVOsblEtOO 

•,I094«£t0t 

-«84io7EaOO 

•,lt589Et01 

-.753a5CT00 

•,12466Et01 

•,64148CaOO 

•.l3S8SCa01 

-.S0786C*00 

..la921Ev01 

•.3b0tb£*00 

-.16398E*01 

.«21172E«00 

-.178A3CaOt 

4^) 

•.82S03E-01 

.,l9l75et01 

0. 

•.20000Ea01 

..11790e«03 

-,t9999CaOl 

**12806CaOO 

•.107t9Ca01 

•.a3920£a00 

•.IS608Ea01 

..lOOOOEaOl 

•.lOOOOEaOl 

.BECXn  iteration  NUMBirR  4 

CT  a ..34200E.41  CTt  a •.44414E-02  PHI  a .SOOOOEtOX 
THERE  ARE  4 active' CONSTRAINTS 

CONSTRAINT  NUNBERS  Atj  

B 10  St  S3 

there  Are  0 violated  constraints 

THERE  ARE  0 ACTIVir  SlOE  CONSTRAINTS 

BRAOIENT  Of  OBJ 

I)  «34t3SE403  .4*0S4Ea03  .o734SEt01 
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6RA0IENTS  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS 

constraint  NUHBeR  8 

1)  •.60823Et00  .7RS2RE«00  0. 


constraint  number  To. 

t)  *,69883C4'00  .7t52RE*00  0. 

constraint  NUHSER  Nt 

1)  .6<»S83E«00  .71S29C«00  0. 

constraint  number  N3 

t)  .60«23e«00  .7«S29E«00  0. 


RUSH'OFF  FACTORS.  (TmcTA(I).  lal.NAC) 

t)  0,  0.  0.  0, 

constraint  PARAhCTER.  beta  s 

SEARCH  direction  (S'vecTQR) 

1)  «.S92StE«00  ..lOOOOE^Ol  •,10203E'>01 

ONE'OINENsIONAL  search 

INIIIAL  SLOPE  a '•.8925E«03  PROPOSED  ALPHA  . .229tE>02 


• constrained  ONE'OIHirNSlaNAL  SEARCH  INFORMATION  « • • 


PROPOSED  design 
AL^HA  a .22907E-02 
X-VECTOR 

.13S7E-02  .223Ae«0t  ..7R58E-02 

OBJ  a .14S79E«02 


t 

t 


CONSTRAINT  Values 

lOOOE^OI  «.I000C«01 
196BE«01  •.12l9E«01 
1S13E^01  •,aBfc9Ct00 
1099Et01  •.90t2C«00 
flOAEtOO  -.*?a3E»0I 
4092e«00  -.UOIE^OI 
lrt2SE«00  •.188BC+01 
4779CA00  •.1522Et0t 


..l54tE>01 
•«t9l6E«01 
..l380Et01 
• •1 0o3C  ^0 1 
•.8653E>00 
•.4A7lE>00 
..4S69C.01 
.•tOOOEtOl 


-,4587E»00 

-.BoOTE-Ol 

•.6i99E>00 

•.9S73E>00 

•.lt3SE>01 

-.ISlSE-^Ol 

-,1954E*0I 

•.lOOOE'fOt 


•.lB47E«0t  •.lS28EtOQ  •.t979EA01 
•.1797C+01  •,20S2E^00  -.IPSAEtOl 
• .l266Et01  •.7344Et00  -.n72E«01 
•.9483C>00  •.1002E«01  •.9SBAC*^00 
-,799jE*00  •.t20lE*01  -,7I«0E*00 
••3S‘*6E-»00  ••loAsE^Ol  •,2237E«00 
-.3S69C-0I  •.1R44E»0I  •.1S31C«00 


TNO-POINT  INTERPOLATtoN 


PROPOSED  design 
alpha  a .78«SSE«03 
X-VECTOR 

.4*49e.03  .23BSE-0t  .,7442E-02 


•.2110C>01 

>.343«E>00 

•.a281EtOO 

•.t041E'»01 

•.12B6E«01 

•.1776C'»01 

•.1817E«01 


OBJ  • .l3977Et42 


constraint  values 


•.IOOOCaOI 

•.iNRse^Ol 

«.i•N9eAOl 

-.lOSsE^Ot 

•.SSRsEaOO 

•.*30«Ca00 

.,«277E.01 

•.4S2SCA00 


•.IOOOEaOI 

••.4t7«F>0^ 

••5007Ct00 

-.ROAlEtOO 

••IOaOCaOI 

•.l37oe*0» 

-,JR07CfOI 

••ISASCaOI 


..ISSAEaOI 

..t9t7E*41 

••IS^aEaOI 

..I047E401 

..II91SEaOO 

••SOOTe^OO 

..I965E.0T 

..IOOOEaOI 


-.4459etOO 

•,8304e«01 

«,4340Ct00 

-.«33se«00 

-.IIOSEaOI 

-.t499C+Ol 

•.i9sae«oi 

•.loooc^oi 


-.t863EA0l 
>,1791E«01 
*. 1253c AOl 
-,I009C«01 
•.#a47C*00 
•.3582EA00 
•,i9i4e>oi 


-.1345000  - 

-,206SCtOO  * 

-.7440C900  - 

«.49o9CaOO  - 
•,1173E*01 
•.1442EA01 
-.lOSlEtOl  - 


threc-roint  interpolation 


PROPOSED  design 
ALPNA  • .22044e-03 

X-VECTOR 

•.1304C-03  .244ie-01  .,7934e«02 


OBJ  « .iSTuC^OC 


constraint  values 


-.IOOOEaOI 

•.1999CA01 

•,149«E«0I 

•.1095CA01 

-,94S1ea00 

-.43S4C4OO 

-.85**K-01 

-.sa29C»00 


-.lOOOCtOl 
-.1173E-02 
-.SOSSE^OO 
•.9052C>00 
•»1052f *01 
•,tS42E.01 
-.1915001 
-.1557C+01 


..tS59C«01 

-,1917E+01 

..l36lEt^l 

-.lOaSEtOi 

-.OOITe^OO 

..50S9E«00 

•.4397C-02 

•.lOOOCtOl 


4411C«00 

S265C-01 

6394CaOO 

4520CA00 

io9se>oi 

1494C«01 

1946C«01 

IOOOCaOI 


1070CA01 

l789Ct01 

i24ac«oi 

1013E^01 

8370ct00 

3594E*00 

S443C-42 


-.1304CAO0  - 
•.2109C900  - 
..7514E^00  - 
-.RSaSEtOO  - 
-.1143eA01  - 
•.t640C*01  - 
•.I99SET01  - 


• A • END  OP  ONE-OINa'nSIONAL  SEARCH 


CALCULATED  alpha  « .4336SF-17 


OBJ  ■ 

.134304CA02 

NO  change 

on  OBJ 

OECXSIOM 

variables  ( 

V.yCCTOR) 

1} 

-.)5247e.14 

.24631E-01 

-.79342E-02 

CONstbAINt  values  to 

-vector) 

1) 

-.IOOOOEtOI 

..IOOOOCaOI 

-.iSOOSbAOl 

•.43920EA00 

-.10719EA01 

T) 

-.19999E*01 

-.ltT90E-03 

-.20000Ea01 

.74975C-13 

-.19175E»01 

IS) 

-.iiaaipAOi 

..211T2Ca00 

-.l4398ET0t 

-.34018CA00 

-.14921E«01 

t») 

-.135a5Et01 

..44140C.00 

-,12464E'fOi 

-.7534SEa00 

..ltS89EA01 

25) 

-.10944001 

-.90561EaOO 

•.10485EAOt 

-.951O4CA00 

-.lOlOBE^Ol 

31) 

-.0a522CA00 

..10148Ca01 

-.OSIABEaOO 

•.1u4B5C«01 

• .9059U«00 

•17) 

-.S4|07Ca00 

-.iisaocfoi 

-.75345ET00 

-.12*44E^01 

-.69t48EA00 

•1) 

-.507a4C«00 

..14921Ea01 

*.34014Ca00 

-,1439aCA01 

..21172C*00 

OS) 

-.82503C-01 

..19175Ca01 

0. 

•.20000Ct01 

-.11740E-03 

59) 

•.ISbObCaOO 

..18719Ca01 

-.43920C90O 

-.iSOOBCtOl 

-.10OO0C901 

PHI  • .SOOOOCtOl 


19«SCt01  -.7304e-02 
144SCa01  -.3S44CaOO 
1143C9ei  -.SSPPCaOO 
9741Ca00  -.1024Ct01 
7399CaOO  -.IJPOEaOI 
2tSSEA00  -.17SaC«^01 
1449CtOO  -.1853CA01 


199SCa01  -.2137C-02 
i64ie*oi  -.issACfOo 
1140Ca01  -.SSOOCaOO 
9«27Ea00  -.1017CA01 
7497EaOO  -.ISSOCaOI 
2129E»00  -.1767001 
1334Ca00  -.1S47C*01 


-.12806Ct00 

-.a2503e-oi 

-.50784eA00 

-.S4l07Et00 

-.96S22Ca00 

-.10944E«0I 

-.13585Ea01 

-.17883E*01 

-.19999C«01 

-.IOOOOEaOI 
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a to  St  S3 

thcne  Arc  0 violatco  constraints 

TNCRC  ARC  0 ACTIVr  SlOC  COnSTRAXhTS 

eRAOIENT  OR  OBJ 

t)  »3at3ae«o3  >aosaE*o3  .OTsoacAOt 

BRAOIENts  or  ACtIvE  anO  violated  constraints 

constraint  number  8 
t)  -.t2733EA02  .t6704CA02  •.ttSa2E«tl 

constraint  number  To 

t)  -.t2342Et02  .12*33Et02  0, 

constraint  number  St 

t)  .t2342EA02  .12433Et02  •.ttS42E-tl 

constraint  number  S3 

t)  .I2733E402  .t6704EA02  •.2R60«C«tt 


RUBH-ORR  factors*  (TmETA(I)*  IstfNAc) 

t)  0.  Oi.  0.  0. 

constraint  RARAmETER,  beta  « .tl624E«OI 

search  direction  (S'VECTOR) 

t)  -.aRZSlE^OO  ..lOOOOETOt  •.t0203E«0l 

0nE>0|MENsI0naL  search 

initial  Slope  « proposed  alpha  . .tS2SE-os 


• • constrained  onc'oihrnsional  Search  inrormation  • * * 

PROPOSED  design 
alpha  * .IS2BtE*0S 
X>VCCTOR 

•.90S4e>06  ,2463e>0t  ..TOSAE-OE 

OBJ  • .l3639Et02 

'CONSTRAINT  Values 


! f. 

1 : 

•.lOOOEtOt 

•.IOOOEaOI 

..tSatEfOt 

•,4392Ea00 

•«lS72EA0t 

-.lEaiE^OO 

•.EOOOE^Ot 

•.I3t9E>05 

1 

-.2000ETOI 

-t8t30E-05 

..IStTCAOt 

•.aJSOE'Ot 

•.ITSaE^Ot 

•.2It7E*00 

-.I640E»0t 

•.S602EA00 

i 

' ■ ♦ 

••IAREcaOI 

•.SOTSe^OO 

.*|3S9EtOI 

•.64ISEA00 

•.1247e^0I 

•.7S34EA00 

•.tlS9E«0t 

•.S4tlEtOO 

1 

•.t094E^0t 

•.40S6E*00 

..1049CaOI 

•,9515C»00 

•.IOISEaOI 

•.aasEEtoo 

•.9SS2E*00 

•.IOISEtOI 

i i 

-•4S**EtOO 

••lOARE^Ot 

•«90S4CaOO 

•.I094E40t 

*.a4tQE>00 

•.iis9e*ot 

•.7S34C«00 

-.t247E40t 

•.MISEaOO 

•.13S4C>01 

.,S07aE>00 

-.149aEA0t 

••3602E«00 

•.IRAOEtOt 

•.EtlTEtOO 

•.iTaaE^oi 

! } ■ 

• 

-.BEsJE-Ot 

•.tRlTE+Ol 

.•304ac«04 

•,2000E«OI 

-.1S50E-03 

•.2000E«0t 

•.IEBIEaOO 

•.ia72E«>0| 

••4392E*00 

«.tS6tE«0t 

..lOOOETOt 

•.IOOOEtOI 

TNO-POINT  interpolation 
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BROBOSCD 

DESIGN 

• 

*LBNa  • 

.S301SC-06 

l-VECTOR 

-•5t«lE«OR 

.2«63c«0t 

••7934E-02 

OBJ  « • 

13RS9Ca02 

CONBTRAINT  VALUES 

•,toooc«ot 

•.IOOOEaOI 

..ISAIEaOI 

•.ASREEtOO 

•.1072Ca«1 

-.|2B1EaOO 

-.2000Ca01 

•.122BE-03 

•.SOOOC^Ol 

••2s21E*0s 

•«1917Ea01 

•.S250E-01 

•.178SE>0I 

-.SttTE^OO 

•.IBROErOI 

-.SBOEErOO 

«*S079EaOO 

..iSSREtOl 

•.641SEaO« 

•.l247EAOt 

•.TSSAEaOO 

-.IIBRErOI 

•*s«iie«oo 

-.lORaC^Ol 

••R056E*00 

..lOaREAOl 

-.RSlSEvOO 

•.lOlfEROl 

••RSbJErOO 

-,RS52ErO0 

•.IOISErOI 

.,951SC«00 

•.IOARCaOI 

..905oEaOO 

•.IORREaOI 

-.BRltEtOO 

«.llSRCAOt 

•.7S34ErOO 

-.1247ER01 

••bR>5C>00 

**t359C«01 

•.SU79EaOO 

•.i492EfUl 

•.3«02Et00 

-.I640E«01 

-.2117CrOO 

•.WSSErOI 

..SjSlE.Ot 

-.19|7Ea01 

..1057E.0A 

•.2000Ea01 

130SC«03 

•,2000Et01 

•.12S1Er00 

••1S72Er01 

•.A3R2e*00 

•.tSdlEAOl 

..IOOOEaOI 

•.lOOOCAOt 

rNRee*RoiNT  interrolation 

RROROSEO 

DESIGN 

alRna  • 

.1S3S0E>0* 

X-VECTOR 

-.Rit3e-«7 

.2aA3E*01 

..7934e*02 

OBJ  • , 

1363aE«02 

CONSTRAINT  VALUES 

•.IOOOEaO] 

•.lOOoEtOl 

..ISAIEaO) 

•.«392EaOO 

•,)S72Eao1 

•,12B1Ca00 

•.EOOOErOI 

-.URiE-OS 

•.2000EA01 

•.SI«3E«06 

•.1917EA01 

-.SJSOE-Ol 

•.1788E40I 

•.2117E*00 

•.IRAOEROt 

•.3602ER00 

.,1AR2E*0I 

-,5079CaOO 

..13SRCa01 

•.RAISEaOO 

•.1247EA0I 

..7534Ca00 

-.USRErOI 

-.84UErOO 

-,io9«e*«i 

-tROSfcC^OO 

..lOaREtOl 

•.95>5E900 

•,101sE«0l 

-.9S52E+00 

-.9«52Ea00 

•.tOtSEROI 

•(RBISCaCO 

-.IOAREaQI 

..90S9EaOO 

-.IORREaOI 

..SailEAOO 

-.hsreaoi 

•.7S34Ea00 

-.i247E+0t 

••a*Ise*oo 

••13s9C>0I 

-.9079Ea»0 

«,t492E>0J 

•.3602E'»00 

•.t640et0t 

•.2117Er00 

••1788E»01 

•.S23oe«oi 

•.|Rl7Et0l 

..so6Se«os 

•.EOOOeaOI 

•.1216e*03 

•,2000c^0l 

«.t26lEt00 

•.t872CR01 

>«43B2C^00 

-.ISAiEtOl 

•.lOOOEtOI 

•.IOOOEaO] 

• • • CNO  or  ONC.OINjrNSiONAC  SCARCM 


CALCULATCO  a .25«lie>20 

O0J  • .l3*3Sae«02  - NO  CHANCe  ON  OBJ 


DECISION  VANIASteS  (v.vEcTOR) 

t)  •.352N7e»l*  .2«*3lE>0t  •»7B3«2E«02 


CONSTRAINT  values  (G 

.vrCTOR) 

1) 

•.IOOOOCrOI 

..IOOOOErOI 

•.ISBOSEROl 

-.ASREOEROO 

•.18719ER01 

-.1280BER00 

7) 

-.iWRERai 

i,U790E-0J 

-,20000Er01 

.7BR73E«t3 

-.IRITSErOI 

-.82903E-01 

13} 

•.17883CR0I 

..2tl72CR00 

•.1b3R8ER01 

-.360IbEr00 

-.URJIErOI 

-.SOTSbErOO 

IS) 

•.l3S89Et01 

-.MI48EROO 

•.IJaBBCROl 

•.tssa^eroo 

-.iisoreroi 

-.SAIOTErOO 

><) 

•.lORaaEtOl 

..RqSBIEaOO 

■.IOBSSErOI 

..RBtaBfROO 

••10148CR01 

-.R8922ErOO 

31) 

•,90922Cr00 

..IOIRSErOI 

-,4514bEROO 

-.ioasseroi 

-.rosbieroo 

-.IORAAErOI 

37) 

•.S4107Cr08 

.,115S9Er81 

•.7S3aSER00 

-.ISABBErOI 

«.B4t48CR00 

«.135S$Er01 

83) 

••SOTSBErOO 

.,18921Cr01 

*.3a0i8ER0e 

-.1B3R8CR01 

•.21172EROO 

-.17B83CR01 

•S) 

•.S2903E.01 

..IRITSErOI 

0, 

•.EOOOOErOI 

..tl7R0E-O3 

-.IRRRRErOI 

S5) 

•tl^SOBEROO 

..ISTIRErOI 

•,43R20Cr00 

•aISboseroi 

-.IOOOOErOI 

-.IOOOOErOI 

-.1 
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riNAt  OPTINIZaTION  INrORMAnON 


OBJ  ■ .ISBSSaE^Oz 

DECISION  VARiABtES  (y.vECTOR) 

t)  -.SSEAZE^IA  .2a63lE-01  -.7R3A2C-02 


Constraint  values  (o^vcctor) 
tj  >,10000e«01  ..10000E«01  -.isaose^oi 

7)  «,lRRRRE«Ot  ..UTROE-OJ  •.20000E«01 

13)  •,17883E«01  ..2ll72E«00  ..te3R8E«01 

18)  **>3585C^01  ..aOI^AE^OO  •.12A66E^01 

25)  -,1094«C»0l  ..RoSAlE^OO  -.lOaSSEtOl 

31)  •.98s22E«00  ..lOlaSE^Ol  •.9sla6E'»00 

37)  -,S4io7E^OO  ..H589C>01  ..7S34SC«00 

43)  •.507eAC^00  ..1492ie.»01  •.3A01AEtOO 

a9)  ••82503E«01  .,1«17SE^01  0. 

55)  «.12806C^00  ..187l9Et01  •.43920E«00 


I8719e^01 

19l75E»0l 

14921C401 

llS89Et01 

10148t401 

,9056)^'»00 

A4148E'»00 

ZllTZE'taO 

11790E-03 

10000C401 


12806E«00 

82503C-Ot 

50786C>00 

8ai07C«00 

98S22C*00 

10944C*01 

13585E^01 

17883Et0t 

19999C«01 

lOOOOEtOl 


43920EtOO 

7697SE-t5 

360|ACt00 

75345E«00 

95l46et00 

1<>485E«01 

t24A6EtOl 

1A398E*01 

20000C><>1 

1SA08E»01 


THERE  ARE  4 aCTIVp  CONSTRAINTS 
constraint  NUHacRS  are 


there  Are  S violated  constraints 

there  arc  0 ACTIVr  side  constraints 

TERHINATION  criterion 

ABSd-OHJd.D/nnjd))  LESS  THAN  OELEUN  EOR  3 ITERATIONS 
ABS(0BJd)«0BJ(T>l))  less  THaN  OABFUN  FOR  3 ITERATIONS 

NUHBeR  of  iterations  a 5 

objective  function  w;s  evaluated  27  tines 

constraint  functions  here  evaluated  27  times 


FNASE  distortion  CALcULAdONS 

BEAN  orientation  NUMreR  ■ 

AZHUTH  ancle  « 

elevation  angle  a 

NACH  number  a 

R eta  X 

8.  0.00  o'. 

.5000E-01  0.00  0. 

,5000E*01  45.00  .353«E»0I 

.5000E-01  90.00  .SO0OE*Ol 

.5000E-01  135.00  .3538C-01 

,5090E-01  180.00  .t335E-08 

.5000E.01  225.00  .,3536C>0I 

.5000e«0l  270.00  ..SOOOE'Ol 

.5000E.01  315.00  ..3538C-01 

,1000E>00  0.00  0. 


0.00  decrees 

50.00  DECREES 


1951E*00 

153aC«00 

1646E«00 

1928C«00 

2230Ca00 

234lCf00 

2230E>00 

1928Ef00 

1646C»00 

1117Ct00 


4060E400 

2946Ct00 

1179E-01 

2882E«00 

RlOOCt^OO 

2882C«00 

ii79e*oi 

2946C«00 

8038EA00 


EOOOE'OI 

3536E-0I 

6675E-09 

3538E-01 

5OOOC-OI 

3S36C-0t 

2002C«08 

3536E-01 

lOOOEtOO 


.loooe^oo 

.lOOOCtOO 

,io««e*oo 

.tOOOEtOO 

,ioooe*o« 

.lOQoe^oo 

.loooe^oo 


«s.oo 

90.00 

tss.oo 

100.00 

225.00 

270.00 

315.00 


^70716-01 

.1000C«00 

.707ie«01 

,2*706-08 

..70716-01 

..lOOOEtOO 

..70716-01 


.7071E-M 

.13356-08 

..70716-01 

..10006«00 

..70716-01 

-.4OOS6-O8 

.70716-01 


,13106»00 

.18586*00 

,2«83e«00 

.27**E«00 

.2«836«00 

•1858E*00 

.13106*00 


.508t6*00 

.47*06-01 

>.SO**6>00 

•.847*6«00 

•.5*0*6«00 

.47*01-01 

.50816700 


XfONICKE  CO6F6ICT6NT4/ 
4068*06  « .132226-02 
TILT.  * ■ .09**26-01 
60CUS  • .790276-45 
A8T16  9 -.107786-02 
COM*  • .4219*6-04 


t ■ •,5*7376-03 

.7*82*6-05 

-.20T576-o7  -.1*5856-03 


.13*006-02 


MH486  018T08TI0M  CALr«IL*TION$ 


BCAM  QMteNTATION  NUM469 
4ZNUTH  ANCLb 
6L6VATI0M  *n6lE 
M*CH  NUMSEM 


« 2 
a 05 

a 30 


0. 

.80006-01 

.50006.01 

.80006-01 

,50006-01 

,80006-01 

.50006-01 

,80006-01 

.50006-01 

.10006«00 

.10006«00 

.IOOOEtOO 

.toooe^oQ 

.10006^00 

.lOOOE^OO 

.10006*00 

,10006tOO 


6T* 

0.00 

0.00 

45.00 

90.00 

138.00 

180.00 
228.00 

270.00 

315.00 

0.00 

48.00 

90.00 

135.00 

180.00 

225.00 

270.00 

318.00 


.383*6-01 
.50006-01 
583*6-01 
*.  13356-08 
.353*6-01 
5oooe-oi 
'353*6-01 

'7oTlt-01 

.loooe^oo 

.70716-01 

.2*706-08 

.70716-01 

10006«00 

,,70716-01 


,00  0668668 

.00  0E6H66S 

.70 

y 

0. 

.80006-01 
.353*6-01 
.**756-09 
-.355*6-01 
-.80006-01 
-.353*6-01 
-.20026-00 
.353*6-01 
. 10006^00 
.70716-01 
.13356-08 
-.70716-01 
-. 10006^00 
-.70716-01 
40056-08 
,70716-01 


,25916«00 

,19736>00 

,22196*00 

.2*956*00 

.30906*00 

,31576*00 

,28946*00 

,2a**6*00 

.20936*00 

,11986*00 

,17246*00 

,2777e^00 

.35906*00 

.3*7*6*00 

,31346*00 

.23236*00 

,18386*00 


.4*806*00 

.23496*00 

-.18336*00 

-.48116*00 

-,471*6*00 

19236*00 

.17976*00 

.4*006*00 
.11516*01' 
.57156*00 
-. 37006*00 
-.991*6*00 
..91816*00 
-.34516*00 
.35746*00 
,94406*00 


Z6MN1CK6  C06PriCI6NT8/ 
*968*66  • ,437*96-02 

-.IT.  V — III 


TILT*  * • 
POCUS  • 
A8Tie  • 
CON*  a 


.8473*6-01 

.294976-02 

.178746-02 

,389126-03 


T • -. 3*4256-8* 

.3917*6-02  ^ 

,922586-0*  .ITIII6-02  .1*2106-02 


8H*8C  018T08T10M  CALCULATIONS 
beam  08I6MTATI0N  NUM46*  « ' 

azmuth  ancle  ■ 

elevation  ancle  a 


90.00  0668668 

10.00  0668668 


( 


MACH  number 

a 

.70 

R 

6TA 

X 

Y 

A 

N 

0. 

0.00 

0* 

0, 

,38406400 

0. 

.50006-01 

0.00 

0. 

•5OOOE-OI 

.27076400 

.50176400 

.soooe-01 

45.00 

.35366-01 

.39366-01 

.24316400 

.32476400 

.50006-01 

40.00 

.50006-01 

.66756-09 

,38306400 

-.11606-02 

,50006.01 

135.00 

.35366-01 

-.39366-01 

.34036400 

. .16086400 

,50ooe-oi 

180.00 

.13356-08 

-.SOOOE-01 

.4O06E4OO 

.,29146400 

,5000E.01 

225.00 

..35366-01 

..35366.01 

.34036400 

..I6OOE4OO 

.50006-01 

270.00 

..50006-01 

..20026-08 

.34346400 

-.11906-02 

.50006-01 

315.00 

..35366-01 

.393*6-01 

.24316400 

.32*76400 

.10006400 

0.00 

0. 

.10006400 

.17836400 

.12456401 

.10006400 

*5.00 

.70716-01 

,70716-01 

,23746400 

.80556400 

.10006400 

40.00 

.10006400 

.13356.08 

.34356400 

.,48756.02 

.10006400 

135.00 

.70716-01- 

-.70716-01 

.42566400 

-.43476400 

.10006400 

180.00 

.26706-08 

..IOOOE4OO 

,451*6400 

.,93686400 

,10006400 

225.00 

.,70716-01 

-.70716-01 

.42566400 

..*3476400 

,10006400 

270.00 

..10006400 

-.40056.08 

.34356400 

.,48756.02 

.10006400 

3I5.OO 

..70716-01 

.70716-01 

.23746400 

,80556400 

zernicke  coErriciEMT./ 
*vER*cE  « .18672E«oi 
TILT,  I a .7327lE«ni 
roCUS  a .7B0«3E-n2 
ASTI6  « .S3544C>n2 
con*  a ,23o76C-ii 


•.50R55E-03 


• .45822E«0<I 
.l0t28t-0* 


.41o76E*02  .I2251E-02 


rLON  7IELO  FOR  THET*  « 0.000  DEGREES 


NACH  NUMHER 


a ,700 


,4oooe«oi 

•3*00E»0t 

,3200E«41 
.2«00E*0t 
.2400E««1 
•2000E401 
.UOOE^Ot 
,I200E«0t 
,8000C*00 
(AOOOE^OO 
.4474E-I3 
.4000E*00 
.8000ET00 
• UOOEaOt 
•1*80E«01 
.2000E40t 
•2400ET01 
•2800E401 
.3200E40I 
*S*OOE«OI 
.*800C40> 


.lOOOEfoi 
.loooE«ni 
.tOOOE.ot 
.lOOOE^Al 
, lOOOE^OI 
.tOOOE^Al 
.lo78E.oi 
.lloSEtAt 
,t2*SC,ot 
.1244E«At 
.ISOOE^At 
.i244e«ot 

.1265C'»A1 

.lt43E,oi 

.1078C«a1 

.tOOOC^ot 

.tOOOC^At 

.lOOOE^Al 

.lOOOCtoi 

.lOOOE^At 

.lOOOE^oi 


RMI 

■.l254E-0t 

'.»3»4E-0t 

..37746.02 
•• J857E-02 
..3242E-0t 
«.8t65e-01 
..10i2E',00 
•.847lE-0t 
>,S57tE.0I 
>.26B1E>01 
.78176-14 
.26816-01 
,597le-0l 
.84716-01 
.10S26*00 
.016SE«01 
, 32426*01 
.38576-02 
.37746-02 
.1314E-01 
.12546-01 


-.1020E-01 

.I550e-01 

.22546.01 

-.31906-01 

-.1075E,00 

-.12366«00 

-.42406-01 

.33816-01 

.65016-01 

.68338-01 

.65656-01 

.6833E-01 

.65016-01 

.33016-01 

-.a2a0E-0t 

-.12366400 

-.10756400 

-.31486-01 

.22546-01 

.15506-01 

-.1020E-01 


.225SE.01 

.20746-01 

-.14466-01 

-.41466-01 

.13846.01 

.13286400 

.18246400 

.13706400 

.74156-01 

.33IR8-OI 

-.12266-13 

-.33146-01 

-.74156-01 

-.13706400 

-.18246400 

-.13286400 

-.13846-01 

,41466-01 

.14466-01 

-.20746-01 

-.22556-01 


:r 

.35886-01 

-.31446-01 

-.45476-01 

.62216-01 

.21476400 

.22956400 

.51676-01 

-.86396-01 

-.13636400 

-.13786400 

-.13136400 

-.13786400 

-.13636400 

-.86346-01 

.51676-01 

.22456400 

.21476400 

.62216-01 

-.45476-01 

-.31446-01 

.35806-01 


CRITICAL  RRESSUOE  COpFFiClENT  ON  SURFACE  a *1,76345 


I 


r 

r-.. 

t 

J 

' 

t. 

i 

— -i. 

: '^'  ^ 

1 1 

1^ 

% 

% 

;Vh 

f 

SURFACE  OCFXNITION  (EFS  ■ .300) 

»-ii«  _ 

ROLVNOMXAL  COEFXCXCNts  («(!)•  1>0, 

MaxK)  XR  X-OXRECTXON 

^1, 

. 

.lOOOOC^Ot 

-.56043fr.t3 

•.1054tE>00  . .2S422e-t3  •.13404E«00 

:'*  . ' 

••3SE*7e-l« 

,24631f.01 

f;  >. 

FOtVNONXAL  COEFXCXENts  (8(I)»  1«0, 

HaXP)  XN  THETA-OXRECTXON 

'—X 

.IOOOOE«01 

0. 

•.10333E«0i  0.  .0404SE«00 

t?- 

0. 

-.74342F-02 

/ n-t- 

COOROXNATES 

• 

X 

Z 

Z-RRINE 

•2.200 

0,0000 

O.OOOO 

'•  * 

•2.000 

.0000 

•.0000 

( 

•l.BOO 

.0247 

.2102 

•1 .600 

.0701 

.2401 

ti 

•I.AOO 

.1303 

.2435 

■ 

•1.200 

.1426 

,2444 

•1.000 

,2353 

.1007 

•.000 

.2651 

.1140 

•.600 

.2037 

.0646 

'■  * 

•.400 

.2434 

.0353 

'(■'  i 

•.200 

.2407 

,0140 

.000 

.3000 

•.0000 

.200 

,2407 

•,0140 

.400 

,2434 

-.0353 

\ 

'i 

.600 

,2037 

-.0640 

.000 

.2651 

-.1140 

* 

1.000 

.2353 

-.1007 

1.200 

,1426 

•,2444 

1.400 

.1303 

-.2435 

1.600 

.0701 

-.2401 

1.000 

.0247 

-.2102 

2.000 

.0000 

.0000 

2.200 

0.0000 

0.0000 

TmCTA 

ii- 

f 

RAOXANS 

DECREES 

z 

z-frihf 

•1.152 

•66.0000 

0,0000 

0.0000 

•1,047 

•60.0000 

,0000 

-.0000 

• ,442 

•54.0000 

,0107 

.1445 

•.030 

•40.0000 

,0306 

.3284 

■ ' 

•.733 

•42.0000 

,0776 

.4001 

: • 

•.620 

•36.0000 

.1224 

.4340 

1 

-.524 

•30.0000 

.1603 

.4303 

- 

£ 

* 

-.4X4 

•24,0000 

.2113 

.3061 

’■  i 

-.314 

•10.0000 

,2402 

.3140 

-.204 

•12,0000 

.2764 

.2210 

1 

• 

-.105 

•^•0000 

.2440 

.1140 

i 

.000 

,0000 

.3000 

-.0000 

! 

.105 

6. 0000 

,2440 

-. 1 l40 

] 

,.  - 

1 

.204 

12.0000 

.2764 

-.2210 

; ; 

.314 

lO.QOOO 

.2402 

-.3140 

■i 

.414 

24.0000 

.2113 

-.3061 

1 

•*< 

• 

.524 

30.0000 

.1603 

-.4303 

ff 

.620 

36.0000 

.1224 

-.4348 

1 

.733 

42.0000 

.0776 

-.4001 

;r  ■ 

.030 

40,0000 

.0306 

-.3204 
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PROGRAM  FLOW  CHARTS  AND  FORTRAN  VARIABLES 
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.OHPUTER  CODE 
VANOERPLAATS» 
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S 

F 

ET  OPTIMIZATIC 

F/«  1/1 

>N  OF  SMALL~ETC(U) 

NL 

't. 

AO 

A049^7^ 
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1 
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COPES/CONMIN  FORTRAN  ROUTINES 


FORTRAN  PURPOSE 

ROUTINE  


COPES  CONtrol  £]rograin  for  Engineering  Synthesis.  This  Is  Che  mein 
program  which  organizes  all  design  and  analysis  operations. 

COPEOl  Reads  COPES  Input  data. 

COPE02  Controls  optimization  process. 

C0PE03  Calculates  objective  and  constraint  functions  In  the  form 
required  by  CONMIN  and  performs  data  transfer  operations. 

C0PE04  Controls  sensitivity  analysis  process. 

COPEOS  Prints  sensitivity  results. 

COPE06  Controls  two-variable  function  space  analysis  process. 

COPE07  Prints  txro-varlable  function  space  analysis  results. 

ANALIZ  User  supplied  subroutine  for  analysis  of  the  problem  under 
consideration. 

CONMIN  Control  routine  for  CONstralned  function  MINlmlzatlon. 

CNMNOl  Calculates  gradients  by  first  forward  finite  difference, 

CNMN02  Calculates  search  direction  by  Fletcher-Reeves  Conjugate 
Direction  Method. 

CNMN03  Solves  one-dlmenslonal  search  for  unconstrained  problems. 

CNMN04  Finds  the  minimum  of  a function  by  pol3momlal  Interpolation. 

CNMNOS  Calculates  search  direction  by  Zoutendljk's  Method  of  Feasible 
Directions. 

CNMN06  Solves  one-dlmenslonal  search  for  constrained  problems. 

CNMN07  Finds  the  zero  of  a function  by  polynomial  Interpolation. 

CNMNOS  Solves  the  direction-finding  sub-problem  In  Zoutendljk's  Method 
of  Feasible  Directions. 
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LASER  TURRET  ANALYSIS  FORTRAN  ROUTINES 


FORTRAN 

ROOTINE 

ANALIZ 

BCOND 

BESJ 

BESK 

BEST 

CPPRNT 

DOPL 

FCOEF 

FXTOK 

FXT34 

GELIM2 

IZERN 

PHDIST 

PHIUV 

PHDVNM 

REFIND 

RMBINT 

RSURF 

SLOPE 


PURPOSE 


Control  routine  for  turret  analysis . 

i * 

Determines  the  dependent  coefficients  of  the  polynomial  shape 
functions  to  satisfy  the  geometric  boundary  conditions. 

Calculates  the  J Bessel  functions. 

Calculates  the  K Bessel  f'mctlons. 

Calculates  the  Y Bessel  functions. 

Prints  perturbation  velocities  and  pressure  coefficient. 

Calculates  the  change  In  optical  path  length  along  a ray. 

Calculates  and  saves  coefficients  for  Fourier  Series  approximation 
to  the  turret  geometry. 

Calculates  the  Fourier  coefficients  of  X . 

Fits  a surface  approximation  to  a three  or  four  cornered  segment 
of  phase  distortion  within  the  laser  beam. 

Solves  a set  of  linear  simultaneous  equations  using  Gaxislan 
elimination  with  pivot  search. 

Calculates  Zemlcke  functions  for  a prescribed  section  of  the 
laser  beam. 

Calculates  phase  distortion. 

Calculates  potential  and  perturbation  velocities. 

Calculates  nym  component  of  potential  and  perturbation  velocities. 
Calculates  Index  of  refraction. 

Rondierg  Improvement  of  trapezoidal  rule  Integration. 

Calculates  radial  coordinate,  R,  of  the  turret  surface,  given 
X and  9. 

Calculates  the  slope  of  the  turret  surface  in  the  streamwlse 
direction. 


LASER 


ANALYSIS  FORTRAM  ROOTINES  - CONCLD 


a 


I 


FORTRAN  PURPOSE 

ROUTINE 

SRFINT  Calculates  the  dlstanea  along  a ray  froa  tha  mirror  to  tha  turrae 
surfaea. 

SURPRT  Prints  tha  coordinates  defined  by  the  geometric  shape  functions, 
f(X)  and  f(9). 

TINPUT  Raads  lasar  turret  analysis  Input. 

TRAP2N  Numerical  Integration  using  trapezoidal  rule. 

XRTPOB  Calculates  the  polar  coordinates,  X,  R and  9 of  a given  point  on 
a ray. 

ZERN  Calculates  the  definite  Integral  of  the  Zemlcke  coefficients. 

ZINT  Calculates  the  Indefinite  Integral  of  Che  Zemlcke  coefficients. 


! 

r 

f 
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FORTRAN  VARIABLES  COMMONLY  USED  IN  LASER  TURRET  ANALYSIS  PROGRiW 
TURRET 

ABAR(I)  I-l  coefficient  of  polynomial  In  x-*directlon. 

ACL  Half  spacing  of  periodic  turret  for  Fourier  series  approximation. 

AL  Turret  half  length. 

AMX(I,m)  Fourier  a-sub-m  coefficient  on  I-l  power  of  x. 

ANT(I,J)  Fourier  a-sub-^  coefficient  (J-nf-l)  on  I-l  power  of  x. 

BMX(I,m)  Fourier  b-sub-m  coefficient  on  I-l  power  of  x. 

BBAR(I)  I-l  coefficient  of  polynomial  In  9-directlon. 

EPS  Turret  height  relative  to  fuselage  radius  at  x > 9 « 0. 

MMAX  Maximum  number  of  m-terms  In  Fourier  expansion. 

WAX  Maximum  nundier  of  n-terms  in  Fourier  expansion. 

NTHBC  Number  of  f and  f pairs  of  boundary  conditions  Imposed 

on  geometry  In  9-dlrection. 

NXBC  Number  of  f and  f pairs  of  boundary  conditions  Imposed 

on  geometry  In  x-dlrectlon. 

R Radial  coordinate  measured  from  centerline  of  fuselage. 

RFUS  Fuselage  radius  (meters) . 

SLOPEXCD  Turret  slope  at  various  x-locations  for  & > 0. 

THETA  Angular  coordinate  measured  from  the  vertical  axis. 

THMAX  Turret  half  angle. 

X Coordinate  along  fuselage  centerline. 

YYPXBC(I,J)  f and  f boundary  conditions  In  x-dlreetlon.  J ~ 1 Is 

X location,  J ■■  2 Is  f boundary  condition  and  J * 3 is 

f boundary  condition. 

TYFTBC(I,J)  f and  f boundary  conditions  In  9-dlrectlon. 
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MUtROR 


GAMMA  Elevation  angle  measured  from  horizontal  plane. 

GAMHAI(I)  Angle  GAMMA  for  I>th  beam  orientation. 

PHI  Azlmnth  angle  measured  from  negative  x-axls. 

PHII(I)  Angle  PHI  for  I-th  beam  orientation. 


BEAM 

A 

B 

ETA 

ETAI(I) 

MBEAM 

NETAI 

NRBI 

KB 

RBI (I) 
HGBTKD 
Y 
Z 


Intercept  of  a ray  with  the  turret  surface. 

Upper  limit  for  phase  distortion  calculations  along  a ray. 
Angular  point  from  local  z-axls  to  a point  on  the  beam. 

ETA  for  I-th  beam  element. 

Total  number  of  beam  orientations  considered. 

Nuadier  of  values  of  ETA  used  In  phase  distortion  calculations. 
Number  of  values  of  RB  used  In  phase  distortion  calculations. 
Radial  distance  from  beam  centerline. 

RB  for  I-th  beam  element. 

Weighting  factor  for  Importance  of  the  I-th  beam  orientation. 
T-coordlnate  of  a point  on  the  beam. 

Z-coordlnate  of  a point  on  the  beam. 
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AERO  - OPTICS 


AKPRIM 

AMACQ 

AMACHI(l) 

BETA 

CP 

DEMGAM 

DENTRO 

PDISTI(I) 

PHIPP 

RINDEX 

SUMPD2 

T(l) 

TDENRT 

U 

V 


k'  In  phase  distortion  relationship. 

Hach  number. 

Mach  nundier  for  I-th  beam  orientation.  ‘ 

ABS(1  - AMACH**2) 

Pressure  coefficient. 

Exponent  In  pressure-density  relationship. 

Ratio  of  external  air  density  to  sea  level  air  density. 

Phase  distortion  If  I-th  ray. 

Potential  function. 

Index  of  refraction. 

Sum  of  squares  of  phase  distortion. 

Trapezoidal  rule  or  Romberg  Integration  for  phase  distortion. 
Ratio  of  Internal  turret  air  density  to  sea  level  air  density. 
Axial  perturbation  velocity. 

Radial  perturbation  velocity. 

Wavelength  of  laser  beam. 


WAVEL 


ARRAYS  USED  IS  LASER  TURRET  ANALYSIS  PROGRAM  AND  THEIR  REQUIRED  DPlEySIONS 


ARRAY  AND  REQUIRED  DIMENSION (S) 
ABARCMAXR+l) 

AKACHZ(NBEAM) 

AMX(MAXK+1,MXAX) 

ANCHAXKfl) 

AST(MAXP+1,1IMAX+1) 

BBAR(MAXP4-1) 

BI€C(MAXR>1.MMAX) 

BN(MAXK4>1) 

EXAKNETAI) 

GAMMAI (NBEAM) 

PDISTl (NRBI*NETAI) 
FHZl(NBEAM) 

RBKMBI) 

SLOPEXOO) 

TCKTRAP+l) 

TITLE (20) 

WGaiKMBEAM) 

YYPTBC(NTHBC,3) 

YYPXBC(NXBC,3) 


ACTOAL  DIMENSION(S)  IN  PROGRAM 
ABAR(20) 

AMACHI(30) 

AM3C(10,15) 

AN(10} 

ANT(10,15) 

BBAR(20) 

BMX(10,15) 

BN(IO) 

ETAI(16) 

GAMMAI(30) 

PDISTI(200) 

PHII(30) 

RBI (10) 

SLOPEX(30) 

T(10) 

TITLE (20) 

WGHTI(30) 

YYPTBC(10,3) 

YYPXBC(10,3) 
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appendix  b 


PROGRAM  LISTING 


COPES  • A CONTROL  PROgRAm  FOR  ENGINEERING  SVNThESiS 


SEPT,  77 


CnPCS 


CONTROL  program  for  ENGINELRING  SYNTHESIS. 


COMMON  /CwMNt/  IPRINT,N0V, ITMAX,NcON,NSIOE,TCNOIR,NSCAL,NFOC,FOCM, 
IFDCHNrCT»fTMlN,CTL»CTLMlN.THETA,PHl,N*c»OCLFUN,DABFUN,LINOBJ*ITRM, 

2ITER,rNF0R,lG0T0,INF0,0ej 
COMMON  /CapcSi/  ATITLE(20) 

COMMON  /CnPFSZ/  RA(S000),IA(1000) 

COMMON  /CnPESi/  SCnOPT.NcalC, I0BJ,NSV,NS08J,NC0NA,N2VX,M2VX,N2VV,M 
12VY,N2VAR,ipSENS,IP2V*B,iPDBG,NACmXI,N0VT0T,L0CR(2S),L0C1(25),1SCR 
*I»ISCR2 

COMMON  /Gi'onCM/  ARRAY  (ISOO) 

BY  G.  N,  vanOERPLAATS  OCT,,  l<»7«, 

NaSA-amES  RCSeARCH  CENTER,  MOFFETT  FIELD,  CALIF, 

NCALC  OPTtONSi 

0,  REaO  all  input  ANo  STOP, 

1,  single  p*ss  analysis. 

2,  optimization. 

3,  SENSlTIVItY  - Z » F(X). 

4,  TWn  VARIABLE  FUNCTION  SPACE  - Z a F(X,V), 


INPUT 


OIMENSIONp  OF  ARRAYS  ARRaY,  PA  AND  lA, 

NARRAYalSflO 

NORAsSOOO 

NOIAstOOO 

read  general  synthesis  CONTROL  INPUT, 
continue 

Scratch  t^pe  numbers, 

ISCRlaZO 

ISCR2B40 

Call  COPEjii  (RA,1A,N0RA,N0IA) 

IF  (NCALC. LT.O)  go  TO  140 

CHECK  TO  INSURE  storage  REOUIREMENTS  00  NOT  EXCEED 
OIMENSIONpo  SIZES  OF  ARRaYS  RA  ANI)  IA, 
N0RA1»L0CR(25) 

N0IAJaL0CT(25) 

IF  (NDRAI'.lE. NORA. ANO. NOIAI  .LE.NOIA)  GO  TO  20 
NRITE  (6,150)  NOHA,NURA1,NOIA,NOIA1 
CO  TO  140 
CONTINUE 

REAO  USER  input. 

ICALCai 

Call  analtz(Icalc) 

IF  (NCALC’.lF.O)  60  TO  lO 


EXECUTION 


if(ncalc.ne.2)  go  to  so 


to 

20 

30 

40 

SO 

60 

70 

«0 

90 

too 

110 

120 

130 

140 

150 

160 

170 

ISO 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

3«0 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

4bO 

470 

480 

490 

SOO 


I 


^ 11  i.,1  ij.  I III.  . u■,l,liplnilnp!l>q 

i 

i 


1 
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COPES  • * control  Program  for  engineering  StNTHEsIS  8EPT.  T7 


c 

c 

IF  ABS(X(n).GT.0  OVER-RIDE 

USER  INPUT 

OF  DECISION  variables  FOR 

510 

520 

c 

OPTIMIZATtON. 

5J0 

• 

540 

DO  40  1*1, NDV 

550 

XX«APS(RA;l)) 

560 

IF  (XX.LT' t.OE-IO)  GO  TO  40 

570 

N5*L0CR(5) 

580 

M2«L0CI(2i 

590 

00  30  JsI.nOVTOT 

600 

NMI»IA(M2, 

610 

M2«M2*l 

620 

IF  (NNI.Nf.I)  go  to  jo 

6J0 

NNI*1A(J) 

640 

ARRAY(NNl,aRA(I)*RA(NS) 

650 

JO 

N5«N5+I 

660 

40 

CONTINUE 

670 

50 

CONTINUE 

680 

IF(NcaLC.mE.J)  so  to  70 

690 

r 

• ' 

700 

c 

Transfer  nominal  values  of 

SENSITIVITY 

Variables  to  array. 

710 

• 

720 

NOsLOCI (6i 

730 

M7sLncI(7i 

740 

DO  60  1*1. NSV 

750 

N»IA{M7) 

760 

M7«M7+t 

770 

NNsIA(H6) 

780 

M6»M6»I 

790 

60 

ARRAV(NN)sRA(N) 

800 

70 

CONTINUE 

810 

IF(NCALC.RT.4)  go  TO  140 

820 

60  TO  (80.40,120,1 J0),NCALC 

830 

* 

aao 

C 

ONE  analysis 

850 

• 

860 

80 

ICALCsZ 

870 

Call  analt7(Icalc) 

880 

ICALC*J 

890 

Call  analtz(Icalc) 

900 

.GO  TO  lO 

910 

■ 

920 

C 

OPTIMIZATION 

930 

• 

940 

90 

continue 

950 

N2sL0CR(2i 

960 

N1»L0CH( Ji 

970 

N4«L0CR(4i 

960 

00  loo  1*1, nov 

990 

C 

X. VECTOR. 

1000 

i 


(1 
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Co^ES  • * CONTRCV  PRQGRAh  FQR  ENGINEERING  SYNTHESIS 


SEPT.  77 


H2aL0CI(2l  1010 

00  01  JaJ.NOVTOT  1020 

R«I*(h2)  1030 

R2«»*2y1  1040 

IP(R,NE.I^  go  to  91  lOSO 

H5bI.OCR(5i;j-1  1060 

N»I*(J)  1070 

R*(I)B*RRiv(N)/RA(NS)  1000 

GO  To  02  1090 

91  continue  1100 

92  continue  1110 

N2«N2a1  1120 

N3»N3*i  1130 

100  NasNati  1140 

C Initial  AnalTsis.  1150 

C design  VAriaHLE  values.  1160 

H2oL0CI(2i  1170 

HS«L0CR(5i  1100 

00  111  Ui.NOVTOT  1190 

N»iA(m2)  1200 

H«IA(i)  1210 

abray(H)«pa(M)*R*(n5)  1220 

N5«NS+1  1230 

111  M2sH2«1  1240 

c ANALI7E  Initial  design.  i2so 

1CALC32  1260 

CALL  ANALfZ(ICALC)  1270 

C OUTPUT  INtTTAL  design,  1200 

ICALCs}  1290 

CALL  ANALtZC ICALC)  1300 

C OPTIHIZATton.  1310 

Call  COPEn?  (array, Ra, IA.NaRRAY.ndRa.nOIA)  1320 

C output  final  design.  , 1330 

ICALCa3  1340 

Call  analtz(Icalc)  i3So 

GO  to  10  1360 

C 1370 

C sensitivity  analysis  1300 

c 1 390 

120  CALL  COPEna  ( ARRAY , RA , I A, NARRA Y , NpRA, NOI A ) 1400 

C OUTPUT  results.  1410 

CALL  COPEns  (RA,IA,NURA.nOIA}  1420 

GO  TO  10  1430 

130  CONTINUE  1440 

C 1450 

C TWO  variable  function  space  1460 

c 1470 

CALL  COPEnO  (ARRAY, RA.IA.NARHAY, NONA, NOIA)  14S0 

c OUTPUT  Results.  149o 

CALL  COPEoy  (RA.1A,N0RA.nDIA)  1500 
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COPES  • A CONTROL  program  FOR  ENGINEERING  SYNTHESIS 


60  TO  10 

continue 

REMIND  ISfRI 

remind  iSrRa 
stop 


formats 


format  (/;sY>(>OHREQUIREO  storage  fur  array  RA  or  IA  exceeds  OIMENS 

HONED  SI2F/S*,5HARRAY,2X,<JM0IMENSl0N,?X,8HRE«UlRE0/7X,iHRA, I»»MX,I 
2b/7X,?HlA,j«,6X,i5//5x,22H*  * PROrRAm  TERMINATED) 


' 1 


i 

> 

\ 


! 

1 


I 


SUBROUTINr  cOPEOl  SEPT*  77 

SUBAoilTiNp  COPEOI  (P*.  14*NOR**NOU) 

COMMON  /CmmNI/  IPRINT.nOV, ITM4X,NCON,NSIOE>ICNOIR,NSC4L*NFOC*FDCH, 
lFOCHM,cT,pTMlN,CTL.CT|.HIN,THETA,PHl#N*C*OELFUN,OABFUN,l.lNOaJ»ITHM, 
EITEP.INFUc.tGOTO* INFO, OBJ 

common  /CdpESI/  *TnLF(?0) 

COMMON  /CoPESJ/  SGN0PT,NCALC, I0BJ,NSV,NS0BJ,NC0Ni,N2VX,M2VX,N2Vr,M 
12VY#N2VAR.iPSENS*IP2VAM,iPOBG,NACMXl,NOVTOT,tOCR(2S),LUCl(2S).ISCR 
•»,ISCR2 

UIMEnSION  r«(nORA), rA(NDIA),CC( tO),TlTLE(20) 

data  STOP?/1MS/»SToP2/»MT/»STOPi/lHO/,STOP‘‘/lHP/,STOPS/<‘HSTOP/ 
data  ENOl >tME/,EN02/lHN/,EN03/lH0/ 

Data  com/{h«/,comma/ih,/,8lank/im  /,zfro/iho/ 

C *•*••••*•«• A****************************************************** 

C routine  To  reao  control  input  for  copes. 

C A*********,********.*********************************************** 

C BY  G,  N,  vanOERPLAaTS  mar.,  t<»7i, 

C NaSA-ameS  research  center,  MOFFETT  FIELD,  CALIF, 

c 

C read  card  images  and  store  on  unit  ISCR2.  STORE  ON  UNIT  ISCRl 

C MITHOUT  COMMENT  cARoS 

c 

HEMINO  ISrRl 
REMIND  ISpR2 
NCARDSsO 
LOCI(2S)sa 
NCOMsO 

2 Formatisoai) 

ICAROaO 

10  REA0(S,2)iRA(I),Isl,80) 

ICAROsICAro*! 

IFORMsO 

c IS  This  Thf  title  card  or  a comment  card? 

IF(RA(n.pO.COH,OR,NCOM,eQ,0)  GO  TO  27 

IP('’A(l).r0.ENDl.AN0.fRA(2j.E0.EN02.AN0,RA(3).E0.EN01))  GO  TO  27 
c UNpORMATTpp  Input  check*  use  R*  for  temp,  storage* 

C CHECK  FOR  formatted  INPUT. 

00  25  Jai.ftO 

1F(RA(J) .FO. COMMA)  GO  TO  26 
1E(RA(J).fO.COH)  go  to  27 

25  continue 

27  continue 

iFORMsl 

lF(RA(n. NF.COM)  NCON«l 

c NO  COMMA  found.  This  data  is  already  formatted. 

do  21  J«1,R0 
21  Ra( J«S0)«OA( JT 

GO  TO  18 

26  continue 

ICARDalCARO*! 

C blank  8-YfcTOR. 


ir 


A 


10 

20 

30 

40 

50 

60 

70 

80 

90 

too 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2B0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

SOO 


» 
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! 

i 


i 

i 

i 


Li 


SUBROUTlNfr  COPEOt 


SEPT.  77 


DO  U I«J.80 
It  RA(U«0)snLtMK 

C CONVERT  UnroRMATTEO  TO  PORNATTCO, 

1?«10 

LX»1 

00  12  1»1,« 

c blank  hORkinG  vector,  CC. 

00  tj  J»l,|0 
t3  CC(J)3BLAnk 

C PUT  FIELD  j IN  CC, 

KbO 

NFLGsO 

DO  14  J«Lt,80 
JJaJ 

C IGNORE  LE^OTNG  blanks. 

IF(RA(J),ko. blank, anO.K.lT.I)  go  to  14 
C CHECK  for  comma. 

ir(RA(J).FO. COMMA)  GO  TO  IB 
C CHECK  FOR  comment. 

IP(RA(J).FO.CnM)  GO  TO  17 
KaKAl 

IFtK.LE.lfl)  GO  TO  29 
KaK'l 

1F(NFLG,Gt.O)  go  to  14 

KRlTE(6,2A)(RA(L),L»l,80),I,(CC(L).Lal,t«)) 

28  F0RMaT(/5», J7M»  • INPUT  FIELD  EXCEEDS  10  CHAHAcTERS/SX, 

* IJHCAHO  INPUT  IS/SX,80Al/SX,17HERROR  IS  IN  FIELD, XS/5X, 

* 4SHFIRST  10  non-blank  characters  ARE  RETAINED  AS, 2X, 1 OA 1 /SX, 

* 2«Hlt€SVLTS  may  NOT  BE  VALID) 

NFLGal 

GO  TO  10 

29  CC(K)aP4(;ij 

14  continue 

GO  TO  18 
17  CONTINUE 

C comment  FnUNO.  STORE  BEGINNING  IN  FIELD  I OR  IN  ACTUAL  LOCATION, 
c khichever  IS  greater. 

IlaI2-10 

lF(Il.LT..jj,  IlaJJ 
IlalUl 
DO  19  JaJ.i.79 
IF(11.GT.40)  GO  TO  18 
RA(  I U80)aRA(J«l ) 

19  Ilall.l 

GO  To  18 
16  CONTINUE 

C STORE  contents  of  CC  IN  a,  RIGHT  JUSTIFIED. 

tlaJjTl 

JtaI2T80 
DO  22  Jal.lO 


510  • 

520  . 

530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
BOO 
810 
820 
030 
840 
850 
860 
870 
080 
090 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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SUBRoUTInf  copeoi 


SEPT.  77 


IP(K.EO.Oi  CO  TO  23  1010 

IF(CC(K).f(). BLANK)  CC(K)sZERO  1020 

RA(j|)«ccrK)  1030 

J1>J1>I  1040 

22  K»K-)  ■ lOSO 

23  continue  1040 

I2al2«t0  1070 

12  CONTINUE  lOBO 

C CHECK  TO  SEE  IF  NORE  Tm*N  B FIELDS  OF  INPUT  aHE  CONTAINED  ON  THIS  1000 

C CARO.  IF  VfS,  print  fRRQR  HESSAce.  1100 

IF(LI.GT.SO)  GO  TO  10  1110 

00  32  J«Lt,40  1120 

IF(RA(J),FQ,CnHHA)  CO  TO  33  1130 

IF(RA(J).Fn.CnH)  60  TO  18  1140 

32  CONTINUE  IISO 

Go  TO  I a 1160 

33  NRITE(6,3a)(RA(J)>J>l,aO)  1170 

34  F0RHaT(/Sx.s1h*  * INPUT  data  card  CONTAINS  HORE  THAN  EIGHT  FIELDS/  1104 

* SX.IShCApo  input  IS/SX,S0A1/5x»24HRESULT8  hAY  NOT  BE  VAlIO)  1100 

18  continue  1200 

IF(RA(1).ne.C0H)  mriTE(ISCR1,2)(RA(I).Is81,160)  1210 

NCAROSaNCiRnStl  1220 

IF((RA(1 )' eq.ST0P1.AN0.Ra(2).EU,ST0P2).AN0.(RA(3),E'J,ST0P3.AN0.  1230 

A RAlai.EU.STOPOJ)  GO  TO  20  1240 

HR1TE(ISCqe,U1 )NCARDS, (RA(I),Ial,sO)  1250 

1F(IFOKH.fq,0)  NHlTE(ISCR2,41)NCAR0S,(RA(I),Ia61,60)  1260 

41  FORHAT(I5>aoAl)  1270 

lF(RA(l).F0.EN01.AN0.(RA(2).ea.ENP2.AN0,RA(3).Ea.EN03))  GO  TO  20  1260 

60  TO  to  1200 

20  remind  ISrRl  1300 

remind  ISrRE  1310 

C 1 320 

C GENERAL  SYNTHESIS  INFORMATION  1330 

C 1 340 

C TITLE.  1350 

C ••••  data  BLOrK  A.  1360 

read  (ISCri,7S0)  (ATlTLE(I),lal.2o)  1370 

NCALCa*!  1380 

lF(ATlTLE/n.E0.ST0P5)  RETURN  1300 

C CONTROL  PaRaHFTERS,  1400 

C — • data  BLOrK  »,  1410 

read  (ISCpi,770)  NCALC.Nov,n$V,N2vaR,IPNPUT.IPSENS.IP2VAR.1PO06  1420 

IF  (NCALC'.lT.O)  return  1430 

IF  (IPNPUt.cI.I)  GO  TO  50  1440 

MRITE  (6.S4A)  1450 

MRITE  (6,5S0)  1460 

NRITE  (0.S60)  (ATITL£(I),Iai,20)  1470 

c 1 480 

C CARD  image  PRINT  1490 


mpHPMpMP 


I 

1 

I 

I 


SUBROUT INf  cOREOt  SEPT.  77 

ir  (IPNPUf.ST.O)  CO  TO  «0 
WRITE  (6.430) 
write  (6.440) 

00  So  iPl.ICARO 

RE*U(ISCR3.al)NC*ROS.(R*(J).Jai,ao) 

30  WRlTE(6.«sn)NC*B0S. (R*(J).J»1.80) 

Rewind  ISfRE 
00  continue 

write  (6.S70)  (*TITLE(I).I»1.20) 

write  (6.500)  NCALC.N0V.nSV,n2VAR,IPNPUT,IPSENS,1P2V*R,IP0BC 
write  (6.480) 

50  N*CMXI»0 

NOVTOTaO 
NCONAsO 
N*CMX2»0 

IF  (NOV.Lf.O)  go  to  200 

c "*  optimization  information 

c 

c OPTlMlZATjoN  control  VARIABLES,  . CONMIN  DEPENDENT, 

c “•••  oaTa  block  C. 

read  (IScri,770)  iprint. itmax.icnoir.nscal.itrm.linobj.nacnxi.nfog 
c — » OATA  block  0. 

READ  (ISC»i,7B0)  FOCH, FDCHM,CT,CTMIN,CTL,CTLMIN, theta. phi, OELFUN.O 
UBFUN 

c ••••  oAiA  block  E, 

C total  no,  of  0.  V,,  objective  global  number,  sign 

c on  OPTIMIfaTION  objective. 

Read  (iscpt.ooo)  ndvtot.iobj.sgnopt 

IF  (NOVTOt.LT.NOV)  NOVTOTsNOV 
IF(NaCMXI'.LE.O)  NACMXlaNOVtZ 

If  (Ipnput.ge.Z)  CO  to  6o 
IF  (ABS(SrnOPT).LT.1,0E-10)  sgnopt»-i. 
write  (6.11,30)  IObJ.SGNOPT 

write  (6,310)  IPHINT, ITMaX, ICNO I R , NSC AL . I TRM, L I NOB J , NACMX I , NFOG 
write  (6,320)  FOCH, FOCHM, c T, CTHIN, CTL. CTLMIN, The Ta. PHI. OELFUN.OABF 
lUN 

60  N2xNDVa3 

N3sN2aNDv;2 

N4aN3AN0v;2 

C •••«  data  BLOck  f, 

C DESIGN  variable  information,  LB.  UP.  INITIAL  VALUE.  SCAL. 

IF  (IPNPUt.lT.Z)  write  (6.660) 

NSbNraNDvIs 

IF  (N5.LE.N0RA)  CO  TO  70 
write  (6,330) 
write  (6,360) 

L0CR(25)aM3 

CO  To  300 
70  CONTINUE 


1510 

1520 

1530 

1560 

1550 

1560 

1570 

1560 

1590 

1600 

1610 

1620 

1630 

1660 

1650 

1660 

1670 

1600 

1690 

1700 

1710 

1720 

1730 

1760 

1750 

1760 

1770 

1760 

1790 

IBOO 

ISIO 

1020 

1030 

I860 

1050 

1060 

1070 

1880 

1090 

1900 

1910 

1920 

1930 

1960 

1950 

1960 

1970 

1900 

1990 


I 


! 


i 


I 

1 


I 1 

■I  ? 


Ill 


5 : 


?v 

l- 


r ' 

t' 


I'  i 


S'!-,  , 

i t-  3 


■PiHPiin^ 


SUBRqUTInf  COpCOl 
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80 


00 


100 


110 


NSlOEsO 

2010 

00  00  Ist.KOV 

2020 

READ  .(ISCp|,620) 

>»A(N2),RA(N3),RA(I),RA(N4),(TITLE(J),J«1»5) 

2030 

IF(RA(N2)’ GT..1. 

OE*15.0H,RA(N3).LT.I.OE»15)  NSlOEal 

2040 

ir(RA(N2)  1 E.-J, 

OEtlS)  RA(N2)a.|.|Ett5 

2050 

IP(RA(NJ):ce,1 .OE+tS)  RA(NJ)«1,1E»15 

2060 

IF  (IPNPUt.lT.2) 

write  (6,6S0)  I,RA(N2),RA(N3),RA(I),RA(N4),(T1TLE 

2070 

l(J).Js|«Si 

2080 

M?«N2tl 

2090 

NJ«N3tl 

2100 

NflaNa^t 

2110 

CONTINUE 

2120 

— DATA  etOrK  G. 

2130 

0.  V.  NO,.  GLnOAL  LOCATION,  HULTIPLYIN6  FACTOR. 

2140 

IF  (IPNPUt.lT.2) 

write  (6,900) 

2150 

N5«a*NUVt« 

2160 

H2sN0VT0T^1 

2170 

NOaNStNOVrOT 

2180 

N5aM2*N0VfnT 

2190 

IF  (NO.LE'nOHA) 

GO  TO  90 

2200 

write  (6,^30) 

2210 

write  (6,3S0) 

2220 

. LOCR{25)aNS 

2230 

GO  TO  309 

2240 

continue 

2250 

IF  (MS.LE'.nOIA) 

GO  TO  100 

2260 

WRITE  (6,3A0) 

2270 

WRITE  (6,3S0) 

2280 

LOCI  (2S)ai43 

2290 

GO  TO  300 

2300 

continue 

2310 

00  no  I3,.nOVTOT 

2320 

REAO  (ISCpi.moo) 

lA(M2),IA(t),RA(N5) 

2330 

1F(abS(RA(nS)1.LT.1.0e>20)  RA(N5)at .0 

2340 

IF  (IPNPUt.cT.2) 

WHITE  (6,510)  I,IA(H2),I*(I),RA(N5) 

2350 

H2aM2*i 

2360 

NSaN$«| 

2370 

CONTINUE 

2380 

NCONaO 

2390 

— OAT*  block  M. 

2400 

NUHBER  OF  constraint  SETS. 

2410 

REAO  (ISCai.ttOOl 

NCONS 

2420 

IF  (IPNPUt.lT.2) 

WHITE  (6,670) 

2430 

IF  {IPNPUt.lT.2) 

WRITE  (6,680)  NCONS 

2440 

IF  (NCONS'.fo.O) 

GO  TU  200 

2450 

IF  (IPNPUt.LT,2) 

write  (6«690) 

2460 

N6a«*N0VtMnvT0T*9 

2470 

H3a2*N0VTnT*l 

2480 

N«a2*N0VTnTtWC0NS 

2490 

2500 

1 


a 


112 


subroutine  cOPCOt 


SEPT.  77 


1 

! 

1 


I I 

i 


u 


Lai  2S10 

C DATA  block  I.  2B20 

NCONAsO  2530 

00  17.0  Iai,NCONS  2540 

NNNaN6A3  2550 

IP  (NNN.Gt.nORA)  60  TO  ISO  2500 

c Global  nu*  i,  global  no.  2,  linear  constraint  10.  2570 

REAO(ISCRi,770)  ICONI.JCONl.LCONI  2SeO 

C LB,  NORM,  UB,  norm,  2590 

ReA0(ISCRi,7SA)  (RA(J),  JaN(>,NNN)  2600 

IP(RA(N6)  LE.-l.OE^tS)  »A(N6)a-l.lE+l5  2610 

lP(RA(N6«p,.GE.t .0E«1S)  RA (N6«2 ) a t . 1 E« IS  2620 

lF(HA(N6>i).LT.I.0b-20)  RA(N6»I )atbS(RA(N6) ) 2630 

lF(RA(N6'»i).LT.0,l)  RA(N6«l)a0.1  2640 

IF(RA(N6*^).LT.1.0E«20)  HA(Nb*3)aA0S(RA(N6«2) ) 2650 

1F(RA(N6'»X).LT.A.1)  RA(N6«3)a0.1  2660 

c number  of  variables  in  This  set.  2670 

NVARaJCONj.iCnNIf I 26S0 

IF  (NVAH.it.I)  NVARal  2600 

NCONAaNCONAtNVAR  2700 

C HON  MANY  CONSTRAINTS?  2710 

JiaO  2720 

IF  (PA(N6j.6E.-1.0E»15)  Jlai  • 2730 

lF(RA(N6t?),LT.1.0E*15)  JlaJUl  2740 

NCONIaJ|*NVAR  2750 

NCONaNCONlNCONl  2760 

IF  (Jl.EQ.O)  GO  TO  130  2770 

C AOO  LINEA*  CONSTRAINT  IDENTIFIERS  TO  ISC.  2780 

00  120  jBf.NCONI  2700 

MOaMatl  2800 

MMMaH4  2810 

IF  (MMM.Gt.nOIA)  go  to  100  2820 

120  lA<Ma)aLCnNl  2830 

130  CONTINUE  2840 

C AOO  LB,  Ub  aNO  SCAL  to  BLU  IF  NVAR.GT.I.  2850 

IF  (NVAR.po.l)  GO  TO  ISO  2860 

NVARtaNVAp.t  2870 

DO  140  Jai.NVARl  2880 

NNNaN6«7  2800 

IF  (NNN.Gt.nORA)  go  to  180  2000 

RA(N<,T4)apt(N6)  2010 

RA(N6T5)ap«fN6«l)  2020 

RA(N6T6)ap«(N6T2)  2030 

HA(N6»7)8p»(N6t3)  2040 

NbBN6«4  2050 

140  CONTINUE  2060 

150  continue  2070 

C AOO  CONSTPAINED  variable  GLOBAL  lOENTIFIERS  TO  ICON.  2080 

ICONIbICOni  2090 

00  160  jBf.NVAR  3000 
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1 


I 

i 

f 

1 


i 


I 


SUBROUTiNr  cOPEOl 


ICPT,  77 


NNHSHS 

IF  (HMH.6f.N0t*)  60  TO  190 
I*(M3)sICnNI 
iCONialCONtVt 
IF(J.EO.I)  60  TO  160 
SHIFT  ISC  VECTOR. 

LlaM4l*l 

L2*M6 

DO  165  K«Ma*«M4 

l*(Ll)«IAa2) 

i L2SL2-1 
H4«M4tl 
H4*SH4*«1 
MJ«H3>1 

IF  (IPNPUt.lT.2)  MRITE  (6*660)  U, ICONI , JCONl ,LCONI ,R*(M6) ,R* (N6^1 ) 
lfRA(N6*2).R4(N6^}) 

N6aN6«4 

LsNCON«i 

continue 

IF  (IPNPUi.tT,2)  NRITC  (6.070)  NCON* 

60  TO  200 
MRITE  (6.330) 

WRITE  (6.370) 

L0CR(?5)snnn 
60  TO  300 
write  (6,360) 

WRITE  (6,370) 

L0CI(25)smmm 
60  TO  300 

continue 

NSOSJsO 

NSVTOTaO 

ST*RTTN6  i OCATIONS  FOR  SENSITIVITY  INFORMATION. 

NSVRa4*N0v.NUVT0T.4*NC0NA.9 

NSVla2*(Nnv.NC0NA).2*N0VT0r.NCUNA«t 

IF  (NSV.Lf.O)  go  TO  240 


SENSITIVITY  Information 


IF  (IPNPUy.lT.2)  "RITE  (6.590) 
•«  oata  SLOrw  J,  PART  1. 

NSOBJ. 

READ  (ISC»t.770)  NSOHJ 
>•  data  BLOrW  J.  PART  2. 

NSENSZ. 

M5»NSVI 

MM5«M5.NSnRj-l 
IF  (MMS.Lf.nOIA)  go  to  2l0 
write  (6,360) 


m 


MKITE  (6m«0) 

L0CI(2S)«mh5 
CO  To  300 
210  CONTINUC 

HEAD  (ISCii.TTO)  (I*(I),I«H5,MM5) 

If  (lfNfUT.LT, 2)  white  (6,530)  NSoBJ 
If  (lfNfUT.LT. 2)  white  (6,520)  ( U ( I ) , 1 »H5, MM5) 
If  (lfNfUT.Lt, 2)  WHITE  (6,000) 

!i>  NfsNSVH 

N6aNSVlTN<|0BJ 
Hr»N6TNSV 
00  230  laJ.NSV 

C — • data  block  K,  HART  1. 

C (SENS.  NSrNS. 

HfAO(lSCRi,770)IA(N6),NNl 

NNTaNTANNi.i 

If  (NNT.Lf.NORA)  GO  TO  220 
write  (6,^30) 

WRITE  (6,300) 

L0CR(25)aNNT 
CO  TO  300 

220  continue 

C data  block  R,  part  2, 

C SENS, 

READ  (ISCnt.TBO)  (RA(J),JiN7,NN7) 
IP(IPNP0T'.gE.2)  go  to  225 
JJaN7T5 

If (JJ.GT.nnT)  JJ»NN7 
WHlTE(6,6i0)I,IA(N6),(RA(J),JaN7,JJ) 

JJaJJ, 1 

If (JJ.LE.nT)  WRITE(6,6I5)(RA(J),JbJJ,N7) 

225  continue 

NSVTOTaNSvTOTTNNl 

1A(H7)«n7 

N7aNN7Tl 

M6aN6Tl 

N7aM7Tl 

230  continue 
2«0  continue 

W2VXaO 

H2VTaO 

If  (N2VAH‘lE.O)  60  TO  270 


C TWO-VARIABLE  function  SPACE  INEORHATION 

c 

c ....  data  block  L, 

c VaRUblE  NllHHfRS  AND  NUNbEH  Of  VALUES  Of  X aND  Y, 

HEAD  (ISC»(,770)  N2VX,M2vX,N2VY,M2VY 
NBsNSVRtNbvtOT 
N8aNSVUNKonJT2*NSV 


3510 

3520 

3530 

3540 

3550 

3560 

3570 

3560 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

36e0 

3670 

3660 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3760 

3790 

3600 

3610 

3620 

3830 

3640 

3850 

3860 

3670 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 


SUBROUTlNr  COPEOI 


8CPT,  7T 


MM8«H«*N2v*r-1 
IF  (MMe.Lp.NOT*)  60  TO  2S0 
HBITE  (6,160) 

NRITE  (6,a00> 

L0CI(2S)«MMe 
60  To  JOO 
continue 

■ 0*T*  BLOCK  M. 

6L0B*L  VAfft*6(.E  numbers  cO«FESP0No1NG  TO  FUNCTIONS  OF  * AND  Y, 
REAO  (isc^i.TTO)  (i*(i).isMe,MMa) 

IF  (1PNPUt.lT,2)  mRITE  (6,750) 

IF  (IPNPUt.lT.E)  "RITE  (6,700)  ( I* ( I ) , I»Me, MMd) 

' 0*T*  BLOrK  N. 

VALUES  OF  X COMPONENTS. 

NNSsNe«M2vx«l 

IF  (NNS.Gt.nORA)  60  To  260 
READ  (ISC(H,7R0)  (RA{I), laNe,NN8) 

IF  (IPNPUt.LT.2)  -rite  (6,700)  N2VX 
IF  (IPNPU7.CT.2)  WRITE  (6,720)  (R*( I ) , I*NB,NN6) 

> OAT*  BLOrK  0. 

VALUES  OF  Y components, 

NRsNBAMEVy 

NN9aN«YM2vvl 

NN8*NN9 

READ  (ISCri.TbO)  (R*{n»  I»NR.nnR) 

IF  (IPNPUt.lT.2)  write  (6,7)0)  N2VV 
IF  (IPNPUt.lT.2)  write  (6,720)  (H*( I ) , I«N9,NN9) 

60  To  270 
NRITE  (6,150) 
write  (6,a0A) 

L0CR(25)snnR 
60  To  500 
continue 


DYNAMIC  storage  allocation 


N0V2sN0V7p 

real  variables. 

*. 

L0CR(1)*I 

VLB. 

L0CR(2)»Nnv*3 

VUB. 

L0CR(3)«LnCR(2)*N0V2 

SCAL. 

L0CR(a)*LocRt5)*N0V2 

AMULT, 

U0CR(5)*LncR(«)*Rl>v2 

BLU. 

L0CR(6)«LnC»(5)+N0VT0T 


4010 
4020  . 
4050 
4040 
4060 
*0»0 
4070 
40B0 
4090 
4100 
4110 
4120 
4150 
4140 
4160 
4160 
4170 
41S0 
4190 
4200 
4210 
4220 
4250 
4240 
42S0 
4260 
4270 
4260 
4290 
4500 
4510 
4520 
4550 
4540 
4550 
4560 
4570 
4500 
4390 
4400 
4410 
4420 
4450 
4440 
4460 
4460 
4470 
44S0 
4490 
4500 


SUBROUTINE  cOPEOl 


SEPT,  77 


C SENS. 

L0CR(7)«Lnc«<6)>‘'*NC0N4 

c xHa». 

L0CR(8)»tnCPC7)+NSVT0T 
C THJV. 

LOCR(P)«LoCP(8)+M2VX 

C execution  level  *RR*rs, 

LocR(io)«i  ocRc’i+NavY 
00  280  I«ii,25 
280  LOCR(t)sLncR(lO) 

c Integer  vartables. 

C lOSGN. 

Lodcnsi 

C N0S6N. 

L0CI(2)»NnVT0T+l 
C ICON. 

U0CI(3)»LocI(2)+N0VT0T 
C ISC. 

L0CI(4)«LocI(3)+NC0NA 
C NSeNSZ 

L0CI(5)*LocT(0)*2«(N0V*Nc0N*) 

C ISENS. 

LOCI(6)»Lnci(S)*NSoeJ 
C NSENS. 

LOCI(7)»LOCI(6)ANSV 
C N2VZ. 

L0CI(8)«Lncl(7)*NSV 

C execution  level  arrays. 

LOCI (P)»Lnci (8) ♦N2VAH 
00  2P0  I*io,25 
290  L0CI(I)»Lncl(9) 

C storage  For  conmin  arrays. 

IF(NCALC.ne.2)  CO  TO  295 
NRIsNOV 

IF  (NACMX^.eT.NRI)  NHIsNaCMXI 
NRa3*NC0N;R.Nf)V«NACNX]  *(NOV2fNACNXl)ANRI*4| 

NIaNACNXi;,;>*NRl 
L0CR(25)a| oC»(«0)*nR 
L0CI(25)a,  nCl(9)tNI 
60  TO  300 
295  NRaNSV 

IF(NSOBJ.riT.NR)  NRaNSOBJ 
IF(NCALC.eq.3)  LOCR(25)»LOCR(IO)»nR 
IF(NCALC.fo.«)  L0CR(25)»LOCR(10)aN2VAR 
300  continue 

IF(IPNPUT'.lT.2J  «»ITE(6,«IOjLOCR(|0),LOCR(25)»NOBA,LOCI(9),LOC1(2S 
•)«N0IA 

return 

c FORMATS 


«510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

6990 

5000 
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c 50 1 0 

510  format  (/SX.5RHCONMIN  PARAMETERS  (IF  ZERO.  CONMIM  DEFAULT  MILL  OVE  S020 

IH-Rl0E)//<;x.PHlPRTNT,2X.5HlTHAX.5X.6HTCN0lR,iX.5HNSCAL.5X,aHITHM.5  $050 

2X,6HLlNOa.r,2X.bMMACMXl,5x.‘iMNF06/Al8)  $040 

320  format  (/AX,4HF0C».12X,5MFDCHM,HX,2MCT,14X,5HCTMIN/lX,a(2X,E14,5)  $050 

•//bX.SHCT)^  , t 3x.6hCtlMIN. IOX.ShTmET*. 1 lX.5HPHl/lX.4(2X,bl4.S)//  SObO 

• 6X.bHOELFUN#tOX«6HnAHFUN/lX,2(2x,El4,5))  5070 

350  format  (/>sX.54MHEaUIRED  STORAGE  IN  ARRAY  Ra  EXCEEDS  AVAILABLE  STO  5080 

IRAGE)  5090 

340  format  (/5X,27MUNABLE  TO  READ  DaTa  BLOCK  F)  5100 

350  format  (/sx,27MUN4ul£  TO  READ  DATA  BLOCK  G)  5110 

3bO  format  (/;5X.54HHE0UIRC0  storage  in  array  lA  EXCEEDS  AVAILABLE  STO  5120 

IRagE)  5150 

370  format  (/«!X,27HUNABLE  TO  READ  DATA  BLOCK  I)  5140 

3B0  Format  (/sx,27munable  TO  read  oata  block  J)  5l5o 

390  format  (/4X,27MUNABI.£  TO  READ  DATA  BLOCK  K)  SloO 

400  format  (/c;x,27MUNABLE  TO  READ  DATA  BLOCK  L)  5170 

410  F0RMaT(//sx,25M0ATa  storage  RE0iJlREMENTS//l7X,4HREAL,2bX,  5180 

• 7hINTEGEP/7X,27hINPUT  EXECUTION  *VAILABLF»5X.  5190 

• 27HINPUI  fXECUTTQN  AVaILABLE/IX, 5110. 2X, 3110)  5200 

420  format  (A^,a2. A1 , I9A4)  5210 

430  format  (1h| .4X.27HCAH0  IMAGES  OF  CONTROL  DATA///5X,4MCAR0.20X,5MIM  5220 

IAgE)  5230 

440  ■ format  (Iho)  5240 

450  F0RMAT(I8,tM).2X,80Al)  5250 

470  format  (/sX,40MT0TaL  NUMflER  OF  CONSTRAINED  PARAMETERS  a. 15)  5260 

480  format  (//<;X.26HCALCULATiON  CONTROL.  NC ALC/5X . 5” V aLUE . 5X . 7HME AN ING  527C 

l/7x.lHl.5^,)SHSINr.LE  ANALYS1S/7X. 1H2.5X, 12HOPTIMI2ATION/7X, 1H3.5x,  5280 

2 llMSENSlTiVlTY/7X,iHa.5X,27HrwO-VARlABLE  function  SPACE)  5290 

490  FORMAT(211o.F10.2)  5300 

500  format  (//5XM6HOESI6N  Variables/! 1X.5H0.  v,.5x.bH6L0BAL«4x. iihmul  53io 

lTlPLYING/SX.2MlD.5x.3MN0,.5x.dMVAR.  NO . . 5''. bHF AC ToR ) 5520 

510  format  (2T7,5X.I5.bX,El2.5)  5350 

520  format  (5x,t6lS)  5340 

530  format  (/sx,34HN0M(,eh  of  sensitivity  OBJECTIVES  a, I5/5X,53hCL08AL  5550 

InUMBERS  associated  mITH  sensitivity  OBJECTIVES)  53b0 

540  format  (iMj ,//////. 5X.47hCCCCCCC  0000000  PPPPPPP  EEEEEEE  S 5370 

lSSSSSS/5K.a7Hc  0 0 P P E S /5X,47  5580 

2MC  0 0 P P E S /5X.47MC  0 5390 

5 0 pffPPPP  EEEE  SSSSSSS/5X.47HC  0 OP  5400 

4 E S/5X.47HC  OOP  E 5410 

5 $/5X.47HCCCCCcC  0000000  P EEEEEEE  SSSSSSS  5420 

6)  5430 

550  format  (/////. 1«X. I9MN  ASA  - A M £ S//laX.29MC  0 N T R 0 L P 5440 

1 R 0 G R A H//2bX,SHF  0 R//8X.41HE  NGINEERING  SYNTH  5450 

2 E S I S)  54bO 

560  format  (/>///24X.9HT  I T L F//5X.20A4)  5470 

570  format  (lHl,4X.bMTITLF:/5X.20A4)  5480 

580  format  (/>/5X, I9HC0NTR0L  P AR AME TERS 1 /5X . a2HC ALCUL A T ION  CONTROL.  5490 

1 NCALC  a, i5/5x.42hNUM8£R  OF  GLOBAL  DESIGN  VARIABLES.  5500 


I 


SUBROUTINf  COPCO  I 


SEPT*  77 


i- 

, » 


2NOV  », I5/sX,tt?HNimttEH  OF  SENSITIVITY  VARUBLES,  NSV  s,i9/SX,42  5510 

JHNOMBER  Of  functions  in  TNO-SPACE,  N2VAR  B, IS/SX,«2HINPUT  INFORMA  5520 

OTlON  print  COdE»  IPNPUT  »,I5/5X,«2hSeNSiIIVITY  PRINT  COOE,  5530 

5 ■ IPsenS  t, l5/5X,a2HTN0-5PACF  PRINT  C00t»  IP2VAR  5540 

6*,I5/5X,4jHne8UG  PRINT  CODE,  IPOBG  «,I5)  5550 

5R0  FORMAT  t///5X,27M«  • SENSITIVITY  INFORMATION)  5560 

600  Format  (/TaX,6HGL0BAU,aX, 7HN0MINAL/5X,6HNUM8ER,2X,8HVARlABl.E,aX,5H  5570 

tVAl.UE,6X,VAHUFF-N0MINAL  VALUES)  5560 

610  format  (5x,l4,I8,5x,E)2,5,lX,5EU.tt)  5590 

615  FORMAr(35x,5Etl,«)  5600 

620  FORMAT  (4FtO«2>|OAa)  5610 

630  F0HMaT(/5v,s5hGL0RaL  VARIABLE  NUMrER  OF  OBJECT  I VE , lOX, IHb , I5/5X , 5620 

1 «6hmUuTipltER  (nEGATjVE  indicates  minimization)  s,E12,a)  5630 

640  format  (/RX,27MOfcSIGN  VARIABLE  I NEORmaT I ON/5X , 50MNON-ZERO  INITIAL  5640 

IVALUe  HILi  OVeH-HIoE  MODULE  INPUT/5X,5H0.  V, , 5x, ShLOHEK* 1 OX, SHUPPE  5650 

2R,6X,7HINttIAL/5X, JHNO.#7X,5HBOUNOf 10x,5hbOuno, 1 0X» 5HV ALUE , I OX , 5HS  5660 

SCALE)  5670 

650  format  (Ifl,aX,E12,5,3X,E)2.5,3X,E)2.5,3X,E12,5,5A4)  5680 

660  FORMAT  ( I B , I 7 , 2 1 6 , 5X , £ 1 2 , 5, 3X , £ 1 2 .5, 5x , E 1 2 . 5 . 3x . E 1 2 . 5)  5690 

670  format  (/>sx,22HC0nSTRAInT  INFORMATION)  5700 

680  format  (/rx.RhTHERE  ARE»I3*16H  CONSTRAINT  SETS)  5710 

690  format  (lix,6HGL0aAL,2X,6«GL0eAL,2X,6HLlNEAR,6X,5HL0WER,6X,  5720 

• IShNOHMA,  j/Ation*  7x,5mUPP£R,6X. 13hN0RMAliZATI0N/6X,2hI0, 3x,  5 730 

* 6HVAR,  1,2X«6HVAH.  2 , 4X , 2H1 D , 8X , 5HBOUND, 9X , 6MF AC  TOR , 1 OX , 5740 

A 5H8OUN0,<»x,6HFACT0R)  5750 

700  format  (/;bX,49HCL0HAL  VARIABLE  NUMBER  CORRESPONDING  TO  X,  N2VX  a,  5760 

U5//5X,20>jvAHtES  OF  X-VAriaBlE)  5770 

710  format  (//5X,49H0L0flAL  VARIABLE  NUMBER  CORRESPONDING  TO  Y,  N2VY  s,  5780 

1I5//5X,20hvALUES  OF  Y-VAriABlE)  5790 

720  format  {3x,5El2.4)  5800 

730  format  (///5X,51M*  * TMO-VaRIABLE  FUNCTION  SPACE  MAPPING  INFORMATI  5810 

ion//5x,52hglob*l  Variable  numbers  associated  “ITh  F(x,Y),  mzvZ)  582o 

740  Format  (5»,t0lS)  5830 

750  format  (2flA4)  5840 

770  FORMAT(eijo)  5850 

780  format  (8F10.2)  5860 

ENO  5870 


I 


c 

c 

c 

c 

c 

50 


i 
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SUB*<0UTINf  COPE02 


SEPT.  77 


SUBPOUTINr  cOPEaa  (IRRAY.PA. U.NARRAY.NORA.NOIA) 

COMHOn  /CmhnI/  IPRINT.nOV, ITMaX.NcON.nSIDE, ICNOIR.NSCAC.NFOC.PDCH, 
»F0C*<M,CT,rTMlN,CTL,CTLMlN.THET*,PHl*'<AC»0ELFUN,0*8FUN,LlN0BJ. ITRM, 

2-ITE«,iNF0r,,  ICOTO,  Info, OBJ 
COHHON  /CnPFSi/  ATITLE(20) 

COMMON  /COPESI/  SGNOPT.NcaLC/ I08J,NSV,nS08J,NCON*,n2VX,M2VX,N2VY,M 
\2VY,N2VAR,ipSenS, IP2V»H, iP0RG,NACmXI ,novTOT,LOCR125),LOC1(25)»ISCR 
•I.ISCR2 

DIMENSION  iRRaY(NARRAY),RA(NOHA) , TA(NOIA) 

Routine  To  control  optimization. 


MAR.,  I97J, 


BY  G,  N,  vANOERPLAATS 
NaSA-AMES  research  center,  MOFFETT  FIELD,  CALIF. 

ARRAY  DIMENSIONS 

NNiaN0V'f2 

NN2a2*N0V;NC0N 

NN3sNACMXi 

NNasNNS 

IF  (NOV.GT.NNa)  NNflBNOV 
NN5B2*NNa_ 

ARRAY  starting  LOCATIONS 

X,  TLB,  Y|"h,  of,  a,  S,  Gi,  G2,  C,  6,  SCAL,  ISC,  IC»  HS I 
NXsl 


NVL0*LOCHf?) 

NVUBsLOCRt)) 

NNSCALaLO^RItt) 

NOFiLOCR(to) 

NGsNOFANNi 

NAsNG*NN2 

NS>NA>NNt.f4N3 

N6] <NStNN( 

NC2*NGUN»,2 

NCsNGZaNN^ 

N8>NC»NNa 

NISCaLOClia) 

NIC»LOCI(tO) 

NMS!*NIC*nn3 


OPTIMIZATION 


IGOTOsO 

call  CONMi*!  (X,0F,G,ISC,IC,A,S,G1,G2,C,MS1,R,VLB,VUB, 

•SCAL,N|,N2,N},Na,N8) 

Continue 

call  CONMtn  (RA(NXj,R*{NOF),RA(NG), IA(NISC),IA(NIC),RA(NA),RA(NS), 


to 
20 
JO 
00 
50 
oO 
70 
BO 
90 
100 
I JO 
120 
IJO 
190 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
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i j 


i : 
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SueOOUTlNr  COPE 03 


SEPT,  77 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


20 

C 

c 

c 


c 

c 

c 

2S 


c 

c 

c 


c 


SUBHOUTINf  C0PE03  ( ARRAY, NARHA V, X, OP,G, IC, A, NNl , NN2, NN3,HA, I A,NOR* 
ifNOlA) 

COMMON  /CnmnI/  IPRINT,nOV, ITNAX,Nc0N,nSI0E,ICN0IR,NSCAL,NF06,70CH, 
l>OCHM,CT,f  TMlN»ClL#CTtMlM,THeTA,PHl*NAC»DCLF0N,0AB7UN,l.IN0BJ»nRM, 
2ITER, INFOfi, tCOTO.lNFU.OHJ 

COMMON  /CoPCSl/  SGN0PT,NcaLC,10BJ,NSV,NS0BJ,NC0NA,N2VX,M2VX,n2VY,M 
12vy>n2VAR, jpSENS,IP2VAa,iPOnG,NACMXl,Ni)VTOT,UUCR(25),tOCl(2S)/ISCR 
*»«ISCB2 

DIMENSION  ipRAV(NAHRAV),RA(N0RA), tA(NOIA) 

dimension  X(NNt ),0F(NN1 ) , G ( NN2 ) , IC ( NN3 J , A ( NN3, NN| ) 


buffer  BEtwfEn  CONmIn  and  copes  function  evaluation. 


8Y  6.  N,  vANOERPLAATS  mar.,  1073. 

NASA-aMES  reSFARCH  center,  MOFFETT  FIELD,  CALIF, 

initial  AnalTSIS  mas  been  done,  if  iter  « Of  GO  EVALUATE 


OBJECTIVE  and  constraints. 

IF(lTER.LT.t)  CO  TO  25 

Transfer  DESIGN 

variable  VALUES  TO  USER  ARRAY 

N5eLOCR(5i 

M2sL0CIt2i 

DO  20  isl.NOVTOT 

N«IA(m2) 

««IA(T) 

array (M)aRA(N)*RA(N5) 
N5aN5*l 

M2»M2,t 

H9«MOtl 

CONTINUE 

analyze 

ICALCS2 

Call  analt7(Icalct 

OBJECTIVE 

Continue 

Oeja«SGNOpT*ARRAY(IOBJ) 

IF  (NCON.pq.O)  RETURN 

CONSTRAINT  VALUES 

M3«L0CI(3) 

NfcaL0CR(b> 

NsQ 

DO  ao  lat.NCON* 
Parameter  ioentifier. 


10 

20 

30 

ttO 

50 

oo 

TO 

SO 

00 

100 

110 

120 

130 

140 

150 

160 

170 

ISO 

too 

200 

210 

220 

230 

2<l0 

250 

260 

2ro 

280 

290 

300 

310 

320 

330 

340 

350 

360 

3T0 

3S0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

4S0 

490 

500 
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SUBROUTINE  C0PE03 


SEPT,  77 


■‘T 


NNalA(H3) 

CCaARR*V(NM) 

C LOhei)  HOUnO. 

BBaRA(N«) 

IF  (BB.LT*..i.0EtlS)  60  To  iO 

c norhalization  factor. 

C|8RA(N6*t) 

c constraint  value. 

NaNTl 

6CN)atBB-cC)/Cl 
C UPPER  BOUuo. 

30  BBaRA(N6TR) 

c norhalizatton  factor. 

CtaRA(N«TT) 

N«BN6Ta 

N3aM^tt 

IF  (BB,GT'.i.0E*15)  60  TO  00 

C constraint  value. 

MaNTl 

6(N)a(CC-RR)/CI 
40  CONTINUE 

RETURN 

End 


sto 

1 

S20 

530 

1 

540 

1 

550 

■i 

560 

1 

570 

500 

; 

540 

i 

600 

i 

610 

4 

i 

4 

620 

630 

• 1 

640 

I 

650 

. i 

660 

j 1 

670 

M 

600 

690 

4 

« 

700 

1 ^ 

710 

■ i 

720 

• 1' 

730 

» V 


J 


subroutinf  copcoa 


SePT,  77 


SUBROUTINP  COPEOa  ( ARRAY,  R*«  14,  NARRAV,  NORA,  NOU) 

COMMON  /CnMNI/  IPRINT,N0V.ITHAX,NC0N,NSI0E,ICN0tR,NSCAL,NP06,r0CH, 
lPOCHM,cT,rTMlN,CTL,CTLMlN,THETA,RHlfNACfOEtFUN,OABPUN,LlNOHJ, ITRM, 
2ITtR, INPOr, TCOTO, INFO, OBJ 

COMMON  /COPPSI/  ATITLElSO) 

COMMON  /CoPES)/  SGN0PT,NCALC, I0ej,NSV,NS0RJ,NC0NA,N2VX,M2VX,N2VY,H 
t2VY,N2VAR,,psENS, IP2VAH, iPOBC,nACmA1 ,n0VTCT,L0CR(2S),LUCi(2S),1SCR 
•t,ISCR2 

dimension  aRRAY(NARRAY),RA(NORA),IA(NOIA) 

Routine  t^*provioe  sensitivity  information  mitm  Respect  to 

A PRESCBIrEO  set  of  design  VaRIaulES. 


BY  6.  N.  vANDEHPLAATS 
STORE  OUTPUT  ON  UNIT  ISCRI. 

rewind  isfn 


MAR,,  ^ »73, 


WRITE  BASIC  information  ON  UNIT  ISCRl 


title. 

RRITE  (ISrRi,5iO)  (ATITLE(I),Ial,20) 
NCALC,  NSv,  NSOBJ 
write  (ISrRtfSOO)  NCALC>nSV, NSOBJ 
lS£NS(I),Tst«NSV. 

M6sL0C1(6) 

M7»Mfc+NSV.t 

WRITE  (ISrRl,3ttO)  (IA(n,I«H6,M7) 
NSENSZCD.Isl, NSOBJ, 

M5«LOCI(5, 

MfcsMS^NSOnJ.t 

WRITE  (ISrR1.3«0)  (IA(I),I«M5,M6) 

JCALCa3 

ICALC32 


NOMINAL 


Call  analtzticalc) 

IF  (IPSENs.sT.O)  CALL  ANaLIZ  (JCALC) 


WRITE  nominal  results  ON  UNIT  ISCRI 


SENS(i,n. 
M7»L0C1 (7) 
NIO»LOCR(io) 

NI  ISNtO 

00  160  I«i,NSV 

Nbm7aI-I 

Nw1A{n) 

HA(Nlt)aRA(N) 

NllaNllAl 
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4 


Pv 


1:1 


SUBROUTINp  cOpEOfl 


SEPT,  77 


i 


M| 

MRITE(lSCpi.3SO)(R*(I),IsNtO,Nt 1} 

C SE^iSITIVIty  ORJECTIVES,  OBJZ, 

H5«LaCI(5) 

R»0*iOCR(tO) 

niisnio 

00  170  IsT.nSOBJ 
HsMS,!.! 

R*(R11)»*»R*T{H) 

170  Nll»Nll»l 

Ni isNiOfNsnnJ-l 

MRlTE(ISCpt,}S0)(R«(I),IsN10.Nll) 

C •«•*•••«*•  SENSITIVITIES 

c 

N5V*L»L0Co(B)-1.0CR(7)-nSv 

NSV*LIsO 

00  320  H.t.NSV 

c Sensitivity  vahmbce  number. 

M6sL0CI(6t,II>1 

ISENS3li(Mb) 

C starting  i 0C*TI0N  of  sensitivity  values  in  RA  (M7), 
H7»L0CI(7itTl-l 
M«slA(M7tt ) 

H7«IA(M7) 

c NUMBER  OF  sensitivity  VARIABLES.  NSENS, 

NSENSsMa>M7 

IF  (II.EQ'nSV)  NSENSaNSVAL-NSVALUl 
IF  (NSENS. lE.1)  50  TO  320 
C NRITe  ISEmS  *n0  NSENS  ON  UNIT  ISCRl. 

NSENSIaNSpNS-l 

NRITe  (ISrRI.SRO)  ISENS.NSENSI 

c 

c vary  The  value  OF  The  sensitivity  parameter 

c 

00  310  JJs2, NSENS 

NSVALiaNSvALlYl 

KaHT^JJal 

*RRAY(1SEwS)>R*(K) 

C NRITe  SENs(T.J)  on  unit  ISCRl, 

NRITe  (ISrR1.3S0)  ARRAY(ISENS) 

C ANALIZE. 

Call  analj7(Ic*lc) 

IFdPSENS  r.T.O)  call  ANAlIZ(JCaLC) 


C .NRITE  sensitivity  RESULTS  ON  UNIT  ISCRl 

C OBJZ, 

M5«L0CI(5, 


SIO 
520 
530 
540 
550 
560 
570 
5a  0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
7B0 
790 
800 
810 
820 
830 
840 
850 
860 
870 
800 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
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SUBROUIIHf  cO^EOS 


8CP1.  77 


NtO>LOCB(7o) 

Ntl«NtO 

DO  SOO  Is7,nSOBJ 

NsM(M} 

R*(NJl)»A|iR*7(H) 

niisnio*n^orJ>i 

*»rite(iscri,  Jso)(«»(i),i«Mio,Nn) 
continue 

«RRAY(ISEi4ST>OA(H7) 

continue 

RETURN 


subroutine  cORCOS 


SEPT.  77 


subroutine  COPEOB  (RA.IA.NORi.NOU) 

COMMON  /CnmnI/  IPRINT.nDv, ITMAX.NcON.nSIOC.ICNOIR.NSCAL.NPoC.FOCH, 
IFOCHM.CT.rTMlN.CTL.CTLMlN.THi-TAtPHl.NtCfOELFUN.OABFUN.LlNOUJ.ITRH. 
21TER. INFOr.iCOTO, iNFO.onj 
COMMON  /CnPESt/  ATiTLE(20) 

COMMON  /CnPFSs/  SGnOPT.NCALC, I0ttJ,NSV,NS0SJ,NC0NA,N?VX.ri2VX,N2VV,M 
12VY.N2VAR.|PSEnS. IP2VAR, iPUHG.nAChX1.n0VT0T,l0CR(2^)»L0Ci(2S).ISCR 
•t«ISCR2 

OlMENSlOU  Rt(NORA) , lA(NOIA) 

routine  To  print  StNSlTIVlTT  INFORMATION  STORED  ON  UNIT  ISCRl. 

BY  G.  N.  vanoeRplaats  July.  1974. 

NASA.AMFS  research  center,  MOFFETT  FIELD,  CaLIF. 

remind  IS^RI 

” general  information 

title. 

READ  (ISCpt.OR)  (ATTTLE(I},Ip1,20) 

NCALC,  NSv,  NSOBJ 
READ  (lSCoi,70)  NCALC, nSv, NSOBJ 
IFINCALC.nf. J)  RETURN 
MRITEIb.Bn) 

• MRITE  (6,<o)  fATITLE(I),I»l,20) 
mRITE  (6,00)  NSV, NSOBJ 
ISENS(I). isl ,NSV. 

RfAO  (ISCri.TO)  (IA(I),Is1,NSV) 

"RITE  (6, no) 

"RITE  (6,120)  (IA(I),IxI,NSV) 

NSENSZCn.tsl, NSOBJ. 

READ  (ISCpt.Tfl)  (IA(I),IbI, NSOBJ) 

"RITE  (6, iso) 

"RITE  (6,120)  (IA(I), HI, NSOBJ) 


NOMINAL  INFORMATION 


SENS(I),I,t,NSV. 

Read  (IScot,l40)  (RAID, lal, NSV) 
"RITE  (6,f50) 

"RITE  (6,iool  (RAID, Hi, NSV) 
OBJZ(I), 1,1, NSOBJ. 

READ  (ISCoi.HO)  (RA(I), HI, NSOBJ) 
"RUE  (6,^70) 

"RUE  (6,(60)  (RA(I), HI, NSOBJ) 


SENSITIVITY  information 


"RITE  (6, HO) 

00  40  ISENSal.NSV 


10 

20 

30 

40 

50 

60 

TO 

SO 

90 

too 

110 

120 

150 

HO 

150 

160 

170 

ISO 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3S0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

460 

490 

500 
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SUBROUTINp  cUPCOS  SCPT,  77 

C ISENSI>  N^fnSI  510 

read  (ISC»i,70)  ISENS1,NSCNSI  520 

"RITE  (6»t«A)  ISENSt  530 

IF  (hSENSr.E'J.O)  MRtTC  (6*200)  5«0 

IF  (NSENSt.E'I.O)  CO  TO  ao  550 

00  30  JJsJ.nSENSI  560 

C SEN8(I,J).  570 

READ  (ISC»|,taO)  SENSIJ  560 

C 0ajZ(I),I«i.NK0BJ.  500 

READ  (ISCt>|,laO)  (RA(I),lai,NS08J)  600 

NaHlNO(<l,MSnSj)  610 

"RITE  (6«PtOJ  SENSIJ, (RA(I),Ia|,N)  620 

Na(NSO»J-i)/<*  630 

IF  (N.LT.ii  GO  TO  20  640 

LtaS  650 

00  10  lat.N  660 

L2aLl»3  670 

L2aMIN0(L7.NSOBJ)  660 

RRITE  (6,^20)  (R*(J)»J»L1,L2)  600 

10  LlalUO  700 

20  CONTINUE  710 

30  continue  720 

40  continue  730 

RETURN  740 

c 750 

C FORMATS  760 

C 770 

50  format  (/;5X,5HTITLE/5X,20A«)  760 

60  format  (2^«a)  700 

70  format  (IaIOI  600 

80  format  (lMt.OX,a7HSTAN0AR0  SENSITIVITY  ANALYSIS  RESULTS  (NCALCs3)}  810 

00  format  (//5**30HNUMBeR  OF  SENSITIVITY  VARIABLES*  NSV,OX* IHa, I5/5X*  820 

130HNUMBER  OF  SENSITIVITY  OBJECTIVES,  NS0bJ,6X, IHa, I5)  830 

110  format  (/>5X*52hGL0baL  numbers  ASSOCIATED  "IlH  SENSITIVITY  VARlAflL  640 

lES)  850 

120  format  (5»,tOI5i  860 

130  format  (/>sX*53MGL0BAL  NUMBERS  ASSOCIATED  »ITH  SENSITIVITY  OBJtCTI  870 

IVES)  680 

140  Format  (Spis.b)  8oo 

150  format  (/^//5X,26HN0MINAL  OESIfiN  tNFaRMATI0N//5X, 3 ihVALUES  OF  SENS  000 

IITIVITY  Variables)  010 

160  format  (5*,BEt5.5)  020 

l70  format  (//s**«1MVALUES  OF  SENSITIVITY  OBJECTIVE  FUNCTIONS)  030 

160  format  (/>///5X,28hSENS1TIVITY  ANALYSIS  RESULTS)  040' 

100  format  (/;sX, I5H6L0RAL  VaRI ABLE, 15// 1 OX, 1 MX, 20x, 4mF{ X ) ) 050 

200  format  (/bx,35HTHE  nominal  value  is  The  ONLY  VaLUE/5X*27hSRECIFIED  060 

1 FOR  THIS  VARIABLE)  070 

210  format  (/xx,El2.4,3X,aE13,4)  060 

220  format  (1ax,0C13.«)  000 

End  1000 
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subroutine  COPE06  (*RRAT,RA.U,N«pRAY,NORi,NOU) 

COMMON  /CnMNI/  lPHINT,N0V,ITMAX,NC0N,NSI0E,ICN0U«,N8C»L,MfO6,F0CM, 
IFOCHM,CT,rTMlN,CTL,CrLMlN,rMETA.PHl»NAC»OELrUN,OABFUN.LlNOeJ»IT«M, 
2ITEH,INFOr,,lGOlO,  INFO, OBJ 
COMMON  /CoPESi/  ATITLEIEO) 

COMMON  /COPESS/  SGNOPT.NCALC, I0aj,NSV,NS0BJ,NC0NA,N2VX,M2VX,N2VT,M 
12vy.n2VAH.jpSENS, IP2vAR,iPO«G,nACmX1,nOVTOT,LOCR{2S),loCi(25),ISCR 
•1,1SCR2 

dimension  aRRaT(NARRAY),RA(NORA), lA(NniA) 

Routine  Tn  calculate  functions  of  tmo  design  variables  for  all 
coMaiNATinNS  of  a set  of  prescribeu  values  of  these  VAHIABlES, 

mRITE  output  information  on  scratch  unit  isc»i, 

BV  6.  N.  vtNOERPLAATS  AUG.,  1970. 

NaSA-aMES  research  center,  MOFFETT  PlELO,  CALIF, 
remind  ISrRI 


UNIT  ISCRt  WRITE 


MRITF  (ISrRI, 160)  (ATlTLE(I),IsI,?0) 

write  (lSrRt,l70)  NCALC,N2VAR,M2YX,N2VX,M2VY,NaVY 

M2VZ, 

HAsLOCKS) 

N9»L0C1(9).i 

write  (IScrj,i70)  (IA(I),I«m»,M9) 


Two-Variable  function  space 


1CALCW2 

KCALCsJ 

ISIGNsl 

NBsLOCRCSy 

N9«L0CR(9>.t 

DO  ISO  Iaj,M2VX 
ARRAV(N2Vy)3RA(NS) 

DO  loo  JaT.MZvY 

M9«N9AlSIr,N 

ARRAY(N2Vv)3Ha(N9) 

ANALIZE. 

Call  analyzticalc) 
continue 

IF(IP2VAR* 6T,0)  call  AMAlIZ(KCALC) 


UNIT  ISCRl  write 


WRITE  X,  y. 

WRITE  (ISrRI, 180)  RA(N8),R*(N9) 
F(X.T)  VAiuES. 

N10aLOCR(?0) 


SUBRoUTInf  COPCOB 


SePT,  77 


Mn»Nio 
NBaLOCKBi 
00  ISO  Kaf,N2vAP 
■HwtA(He) 

Ra(Ntt)aAap«Y(N) 

Nti«N|U  I 
M9aMe*t 

no  continue 

Ntt«NI0«N9vaR«| 

NRlTedSCpt,  t80)(l>A(K),KaNt0,NU) 
lao  continue 

NOaNQ^ISlRN 
NOsNSfl 
lSI6Na>TSrGN 
ISO  continue 

HETUPN 

C 

C PORHATS 

c 

160  format  (3nA4) 

l70  format  (UIR) 

160  format  (bpjS.O) 

eno 


s 

s 

5 

5 

S 

S 

5 

S 

5 

6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
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SUSPOUTINf  COPE07  (PA, I *,NDR*,NOU ) 

common  /CnmnI/  IPRInT.nOv, ITMax,NcUN,nS10E>ICN0IR,MSC«L,NF0C.F0CH. 

IFOCMM,cT.rTM|N,CTL.CT|.MlN.THCTA«PHl>NAC»0ELFUN,DABFtiN.(.INOBJ,ITRM, 

«ITtR,IMfOr,,TfiOTO,lNKO,0«J 
common  /CnppSi/  ATITLEciO) 

COMMON  /CnPESS/  SCNOPT.NCALC, lUBJ, NSV, nSOBJ , NCONA, NJVX, MaVX>N2Vr, H 
l2VYtN2v*R.fPSCNS>IP2VAB.iP0BC>NACMXlfN0VT0T,L0CR(2S),t.0Cl(25)>ISCR 
*t»lSCR2 

DIMENSION  PA(MOHA), lA(NOIA) 

Routine  to  print  taq  variable  f.unction  space  informatiun  stored  on 

UNIT  ISC«?. 

DY  G.  N.  vANOERPLAATS  AUC.«  1974. 

NASA-AMES  (jpSEARCH  CENTER,  MOFFETT  FIELD,  CALIF, 

HEhIno  IS^Rt 

general  information 


title. 

HEAD  (ISCpt.SO)  (ATITLE(I),I«1,20I 

READ  (ISCpi.RO)  NCALC,n2VAH,M2VX,n2VX,M2VY,N2VY 

if(ncalc.ne.ri  return 

M2VZ(I),1,|,N2VAH. 

read  (ISCai,90)  (!A(n,Ist,N2VAR) 

MRlTE(6,Sni 

MRITC  (6,401  (*TITLE(I), 1*1,20) 

NZVX,  N^V^. 

"RITE  (6,140)  M2VX,N2VY 
M2VE. 

nrite  (6,;so) 

MRITE  <6,ioO)  (IA(l),lal,N2VAR) 

'tmo.variable  Function  space  information 

do  30  I»ljM?VX 
MRITE  (6,160) 

DO  30  J»1.M2VY 
X ^ v 

REAO*(ISCpi,170)  XX, YY 
F(x,y). 

NlO«LOCR{io) 

Ml l*N10fNpv4H«l 

REAO(ISCMi,ir0)(HA(K),K*N10,Ntl) 

Naa 

IF  (NEVAR'lT.O)  NaN2VAR 
NUbnIOaN.i 

1F(J,EU,1i  MRITE(6,120)XX,YY,(flA(K),KlN10,Nll) 
1F(J,6T.1,  nRITE(6,.1  10)YY,  (RA(K),K«N|0,Nn) 

IF  (N.LC.N2VAR)  GO  TO  20 
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HB(N2VAR-n/a 
NsNlOtO 
DO  10  K»1,M 
LsNA3 

IF(L.GT,NJ,,  L»Nn 

PRITE  (6,fJ0)  (H*(KK),KK»N,L) 

to  n»l*i 

20  continue 

30  CONTINUE 

return 

C FORMATS 

c 

ao  format  (//S*.'!HTITLE/5X,20*«) 

50  format  (lHi,ax,3SHlM0.VAHtABLE  function  SPACE  RESULTS) 

SO  format  (Eaao) 

90  format  (UIS) 

too  format  (5»,t0T5)  ^ 

110  format  (/i5X.Eia.«.iX,<*El3,«) 

120  format  (/^x.aEia.RfSX.REiS.R) 

130  format  (Srx.REIS.A) 

140  format  (/>//5X,4»hgL0BAL  number  associated  with  X-VARIABLE,  M2VX  < 

l»l5//5X,aAMGt.0B*L  NUMBER  *SSOCl*TFO  WITH  Y-VAHiABlE,  N2vy  »,I5) 

150  format  (//5X.57HGLOBAL  NumhEHS  ASSOClAlED  RITM  F(X,V)) 

160  format  f/'/lOX,  IHX.  IIX,  lWr.^O*»6MF(X»  T)) 

170  format  (SfIS.B) 

End 


SlO 

520 

530 

540 

550 

560 

570 

5B0 

590 

600 

610 

620 

«30 

640 

650 

660 

670 

6S0 

690 

700 

710 

720 

730 

740 

750 

760 

770 
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subroutine  cONMIN  (XfOF.G.ISC.IC.A.S.Gt  f CaiC.NSt ,b.VLB«VUB.SCAL«N1 
I.N2,NS,N«,n5) 

COMMON  /CnmNI/  I PR  I NT, NOV, ITMAX,NCON,nSI0E, ICNOI»,NSCAL,NFOC,FOCH, 
lFOCHH,CT,rTMlN,cTL.C»LMlN,THET*,PHl,NAC*OELFUN,OARFUN,LlNOBJ,ITRM, 
21  ter, I NFOr, I GO  TO, INFO, OBJ 

COMMON  /ConSAV/OMI ,OM2,Om3,Dmu,DMS,OM6,OM7,OM8,OM<»,DM10,OCT,OCTL,P 
IHI 1 ,ABoej.*flOHJl , AlPMAX,CTA,CTAM,CI8m,0BJ1  .SLOPE,OX,OX1,FI,XI,OFTO 

2F1,ALP,FFf,oI (2J)»RSP4CE, IOMl,IOM?,IOM3, JOIP. 
«IObJ.KObJ.kcOUNI,NcAL(2) ,NFEAS,MSc*L,Nc08J,NVC,I01 (7) 

•» III,NLNC, JGOTO, ISP4CF(2) 

DIMENSION  X(Nn,OF(Nl),G(N2l,ISC(N2),IC(N3),A(N3,Nl),S(Nl),Gl(N2), 
1G2(N2),C(n<0>mS1 (N^),B(N3,N3),VLB(Nl),VUH(N|},SCAL(Nt ) 

Routine  To  solve  constrained  oh  unconstrained  function 

MINIMIZATiioN. 

BY  G.  N,  vaNOERPLAATS  APRIL,  IR72, 

NaSA-AMES  research  center,  MOFFETT  field,  calif, 

REFERENCE!  CONMIN  . a Fortran  program  for  constrained  function 
minimization;  user's  manual,  by  g.  N,  VANOERPLAATS, 

NASA  tm  X.62,282,  AUGUST,  1973. 

STORAGE  Requirements; 

program  - 7000  decimal  WORDS  (COC  COMPUTER) 
array*  - APPROX,  2»(N0V*»2)+26*N0V+«*NC0N, 

MHERE  N3  * N0V.2. 

RE«SCALE  variables  if  required. 

IF  (NSCAL' FO.O.OR.IGOTO.EQ.O)  GO  TO  20 

00  10  lal. NOV 

XfDsCd) 

CONTINUE 

constants’, 

NDVlaNOVfi 

NOV2aNOV77 

IF  (IGOTO'.eO.O)  go  to  30 

CO  TO  (1S(),37o, 160,650,670),  IGOTO 

" Save  input  control  parameters 

CONTINUE 

IF  (IPRINi.QT.O)  WRITE  (6,1230) 

IF  (LINOH.i.eO.O.OR, (NCON.GT.O.OR.nSIOE.GT.O) ) GO  TO  «0 
Totally  unconstrained  function  with  linear  objective. 

SOLUTION  is  Unbounded. 

white  (6,070)  LIN0BJ,NC0N,NSI0E 

RETURN 

CONTINUE 

lOMlalTRM 

I0M2aITMA» 

lDH3aICNUTR 

OmioOELFUn 

DM2aOABFUN 

0M3aCT 
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OMAaCTMIN 

0M5«CTL 

0H6«CTLH1n 

OH7STHETA 

ONS-'PHI 

dmrbfoch 

OmiOxPOCHm 

c — .. 

c defaults 

r • * 


IF  (ITRN.je.O)  ITRMai 
IF  (ITMAX  lE.O)  ITHAX»20 
NOVlxNOVi^ 

IF  (ICNOIp,EQ.O)  ICNOIRsnOVI 
IF  (OEUFUn.lE.O. ) OELFUNs.OOOl 
CTs-ABSICt) 

IF  (CT.GE'o.)  CTs-.l 
CTMINsABS/CTNIN) 

IF  (CTMIn'le.o.)  CTHINs.oOR 
CTL»-ABS(rTL) 

IF  (CTL.Gf.O.)  CTLa-O.OI 
CTLMlNsABSfCiLMIN) 

IF  (CTLMIm.LE.O.)  CTLHINs.OOI 
IF  (TMETA'.lE.O,)  ThETAxI, 

IF  (PHI.Uf.O.)  PHIxS. 

IF  (FOCH.if.O.)  FDCHs.Ol 
IF  (FOCHH^LE.O.)  FOCHMx.OI 


c initialize  internal  Parameters 

c 

1NFOG*0 

iTERxO 

JDIRxO 

lOBJxO 

KOBJxO 

NOV2xNOV«x 

KCOUNTxO 

MC*L(1 )xO 

NCAL(2J«0 

NACSQ 

NFEASxO 

HSCALxNSCaL 

CTt«ITRM 

CTl»l./CTj 

OCTx(CTMIm/*BS(CT))*»CTI 

OCTLx(CTLmN/AHS(CTL))**CTl 

PhIIxPhI 

ABOBJx.l 

A80BJ1X.1 

alphaxs.i 


I 


SIO 

B20 

530 

Sao 

550 

SoO 

570 

SSO 

500 

600 

610 

620 

630 

6ao 

650 

660 

670 

660 

600 

700 

710 

720 

730 

740 

750 

760 

770 

760 

700 

600 

610 

620 

630 

640 

650 

060 

670 

660 

600 

000 

010 

020 

030 

040 

050 

060 

070 

060 

000 

1000 
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I 

‘■•''I 




\ 


T 

I 

i 


!-  4 

f;  : 


r.- 


NCOBJso  ISIO 

CTaNsABSI^THIN)  1020 

CTBN«A8S{rTt*<TN)  lOJO 

C CALCULAie  number  of  linear  constraints,  NLNC.  io«o 

NLNCsO  lOSO 

IF  (NCON.fo.O)  eo  TO  bO  1060 

DO  So  I*l.NCON  1070 

IF  dSCdl.Gl.OJ  NLNC»NLNC*l  1060 

SO  continue  1000 

60  CONTINUE  1100 

c 1110 

c check  to  be  sure  that  side  constraints  are  Satisfied  ii2o 


IF  (NSIDE'.eo.O)  go  to  100 

1140 

00  00  1=1. NOV 

liso 

IF  (VUB(I).LE.VU8(n ) GO  TO  70 

1 160 

XX».5*(VLR(I)»VUb(n) 

1170 

X<I)*XX 

1160 

VLB(n=XX 

1100 

VUB(I)SXX 

1200 

HRITE  (6,T|?0)  1 

1210 

70 

continue 

1220 

XXsX(n-Vi  8(1) 

1230 

IF  (XX.GE.o.)  GO  TO  80 

1240 

c 

LONER  bound  violated. 

12S0 

NRITE  (6,Ji50)  X(I),VLB(I),I 

1260 

X(I)»VLH(t) 

1270 

60  TO  00 

1260 

SO 

continue 

1200 

XX*VU8(I).X(I) 

1300 

IF  (XX.GE’.o.)  GO  TO  00 

1310 

HRITE  (6,jiaO)  X(I),VUB(I),I 

1320 

X(I)bVUB{t) 

1330 

00 

continue 

1340 

100 

continue 

13S0 

r 

C 

r 

initialize  scaling  vector,  SCAl 

1370 

IF  (NSCAL'eO.O)  go  to  lOo 

1300 

IF  (NSCAl'lT.O)  GO  TU  120 

1400 

DO  110  Hi.nOV 

1410 

110 

SCALdlal  . 

1420 

Go  TO  100 

1430 

120 

CONTINUE 

1440 

DO  130  IsT.nOV 

14S0 

SIaABS(SCiL(I)) 

1460 

IF  (SI.LT’,t.0F-20)  3Ial.0E-5 

1470 

SCALdlaSr 

1460 

Slal./SI 

1400 

X(naxd)«st 

ISOO 

■■j 

i 

i 

f 

I 


i 

i 


1 


135 


i 


subro'itinf  con**In  • Constrained  function  mimimization  sept,  tt 

IF  (NSIDE'eQ.O)  go  to  i3o 

VLB(I)»VLA{t)*5I 

vuB(i)»vuN(n«si 

continue 

continue 

*•*«*  CALrULATE  initial  function  and  constraint  values  •*••• 

INFOzl 
NCALd  )»l 
IGOTOsl 
GO  TO  950 

continue 

OBJlsOBJ 

IF  (OABFUn.lE.O.)  OABFUNa,OOl»A88(OBJ) 

IF  (OABFUn.lT.I.OE-IO)  DaBFUN*1,0F-1O 
IF  (IPRINt.LE.O)  go  TO  ZbO 

y PRINT  INITIAL  design  INFORPATION 

IF  (IPHINtTlE.J  > GO  TO  220 

IF  INSIDE' EO.O, AND. NCON.EO.O)  -RITE  (6,1300] 

IF  (NSIOE  NE.O.OR.NCON.OT.O)  RWITE  (6,1200) 

RRITE  (6, t?SO)  IPRINT,N0V, ITMAX,NcON,NSIDE,ICNOIR,NSCAL,NFOG,LINOB 
IJ, ITRM,N1  N2»Ni,N«,N5 

RRITE  (b,i;>70)  CT,CTHin,cTL,CTL^1N, THETA, PMl,DEV.FUM,DAbFUM 
RRITE  (b,j2b0]  FDCH,FOCHM 
IF  (NSIDE'fO.O)  go  to  |80 
RRITE  (b.^inO) 

DO  IbO  I*t,N0V,6 
Hl«MINO(NnV,I+S) 

RRITE  (b.iotO)  I,(VLB(J),J*I,HI) 

RRITE  (6,1290) 

DO  170  I»i,N0V,6 
M|»MINO(Nriv,  U5) 

RRITE  (b,j6l0)  I,(V0B(J),JsI,Ml) 

continue 

IF  (NSCAL'.GF.O)  go  to  190 
NRITE  (6,1)10) 

nRITE  (6, 1070)  (SCAL(I),I«t,N0V) 

continue 

IF  (NCON.po.O)  CO  TO  220 
IF  (NLNC.fIJ.O.OR.NlNC.EO.ncON)  go  TO  210 
NRITE  (b,J020) 

DO  200  I«],NCON,tS 
Ml«HIN0(N(;ON,T»l<t) 

"RITE  <6,1030)  I, (ISC(J),J«I»N») 

GO  TO  220 

IF  (NLNC.FQ.NCUN)  WRITE  (6,1090) 

IF  (NLNC.FQ.O)  "KITE  (b«l050) 


T 
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220  CONTINUE  2010 

MRITC  (6, 1450)  OBJ  2020 

MRITE  (6,1460)  2010 

DO  230  I«i,NOv  2000 

X1>1.  2050 

IF  (NSCAL’.nE.O)  XlaSCAL(I)  2060 

230  GUI)3X(lj*yi  2070 

DO  200  iat,NDV,6  20ao 

Ml«MlN0(Nriw,U5)  2000 

200  MRITE  (6,ioiO)  I,(Gl(J),J9l,Hi)  2100 

IF  (NCUN.PO.O)  6U  TO  2^0  2110 

WRITE  (6,1400)  2120 

DO  250  I«],NCON,b  2130 

Ml«MIN0(NroN,l*5)  2100 

250  WRITE  (6,7niO)  I, (G(J), JsI,Ml)  2150 

260  CONTINUE  2160 

IF  (IPRINt.gT.1)  white  (6,1370)  2170 

c ....................................................  2100 

C ••**•*••*,•••••***•*  begin  minINIZATION  ••***•••*,«••*«••••*••*•  21V0 

C 2200 

270  CONTINUE  2210 

ITERsITERii  2220 

IF  (ABOBJi .Ll. .0001)  ABOBJla.OOOl  2230 

IF  (AB08J?.g7..2)  A80BJ1S.2  22«0 

IF  (ALPHAx.cT.I,)  ALPhaXsI,  2250 

IF  (ALPMA».l7..01)  ALPHAXS.OI  2260 

IF  (IPRINt.gT.2)  WRITE  (6,1320)  ITER  2270 

NFEASsNFEis+l  2200 

IF  (NFEAS’ GT. 10)  GO  TO  790  2290 

IF  (IPRINt.gT.3,ANO,NcON,GT,0)  write  (6,1330)  CT,CTL,PHI  2300 

CTA>ABS(Ct)  2310 

IF  (NCOUJ'eO,0)  go  to  3l0  2320 

c 2330 

C NO  HOVE  On  last  iteration,  DELETE  CONSTRAINTS  THAT  aKE  NO  23a0 

C longer  AChvE.  2350 

c 2360 

NNaCsNAC  2370 

DO  300  Ki.NNAC  2300 

NIC«IC(I)  2390 

IF  (NIC.Gt.nCON)  NACsNAC.1  2400 

IF  (NIC.Gt.nCON)  go  TO  3oO  2410' 

CT1*CT  2420 

IF  (I3C(N^c).CT.0)  CTlaCTL  2430 

IF  (G(NICi.6T.CT1)  go  to  300  2440 

NAC«NAC«1  2450 

IF  (I.EO.nNaC)  go  to  300  2460 

IP1*I»1  2470 

DO  290  KsrP1,NNAC  2400 

lIcK.t  2490 

DO  280  J4t,N0v2  2500 
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A(II,J)aATK,Jl 
ICdIXICrKI 
CONTINUE 
60  To  ROO 

continue 

IF  (MSCAL* lT.NSCAL.OR.NScAU.EO.O)  60  TO  330 
IF  (NSCAC.LT.O.ANO.KCOUNT.LT.ICNOIR)  go  to  330 
MSCAL>0 
KCOUNTaO 

scale  variables 

DO  320  I«f,NOV 

SlaSCALdi 

XlsSdXd^ 

SiBaSI 

IF  (NSCAL'gT.A)  SIaABS{XI) 

IF  (SI.LT,r.OC-10)  GO  TO  320 
SCALdlaSr 

Slal./SI 

X(I)axi*3T 

IF  (NSIOE'.EO.O)  go  to  320 
VLBd)aSlR,Sl*VLHd) 

VUNd)aSlR*SlAVlJBd) 

CONTINUE 

IF  dPRINf.LT.o.0R,(NSCAL.LT,0.ANO,dER.GT,l ))  GO  TO  330 

"RdE  (6»i3<lO) 

"RdE  (OrlOTO)  (SCALdldslfNOV) 

CONTINUE 

HSCALaMSCAL«I 

NACaO 

obtatn  gradients  of  objectiv?  ano  Active  consiraints 
iNFOaF 

NCAL(2)aN?;*|.(2)Al 

IF  (NFOG.i  T.2)  go  to  350 

iGOTOaZ 

60  TO  OSO 

CONTINUE 

JCOTOaO 

CONTINUE 

Call  CNHNnt  (JGOTO,X,OF,6,ISC,lC,A,Gt,VLB,VUB,SCAL,C«NCAL»OX,OXl,F 
I1»X1,III*nI,N2,n3,N4) 
iGOTOal 

IF  (JGOTO'cT.O)  GO  TO  95o 

CONTINUE 

iNFOal 

IF  (NAC.Gr.N3)  60  TO  790 

IF  (NSCAL' EQtO.OH.NFOG.EQ.O)  60  To  400 
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I 


^ i 


C SCALE  gradients 

c Scale  gradient  of  objective  function, 

DO  3«0  I>),nOV 

sao  c>F(I)*of(t)*scal(I) 

IF  (NFOG.rO.l.OR.NAC.EO.O)  GO  TO  aOO 
C SCALE  GRAnifNTS  OF  ACTIVE  CONSTRAINTS, 

DO  390  Jst,NOV 
SCJ«SCAL(.ti 
DO  390  I»i,NAC 
3R0  A(I,J)»A(|, j).SCJ 

AOO  CONTINUE 

IF  (IPRIN^.lT.3.0R,NCON,EI1,0)  GO  TO  950 

c 

c print 

c 

C PRINT  ACTtvE  and  VIOLATED  CONSTRAINT  NUHBERS. 

HlaO 

H28N3 

IF  (NAC,En.O)  GO  TO  430 
DO  420  Isi.nAC 
JalCd) 

IF  (J.GT.mcoN)  go  to  420 
GIsG(J) 

CiaCTAH 

IF  (1SC(JkGT,0)  ClsCTBN 
Gl8GI>CI 

IF  (Gl.GT’.o.)  GO  TO  410 
C ACTIVE  CONSTRAINT, 

N1«M1»1 
HS1(N|]sJ 
GO  TO  420 
410  N28M2A1 

C VIOLATED  CONSTRAINT, 

NS1(M2)«J 
420  continue 
430  N3aH2.N3 

NRITE.  (6.To60)  N1 
IF  (MI,Ea' 0)  GO  TO  440 
NRITE  (6,in70) 

NRITE  (4,ta90)  (MSl(I),Ial,Ml) 

440  NRITE  (6,1040)  Hi 

IF  (M3,EQ'o)  go  TO  450 
NRITE  (6,1070) 

N38N3A1 

NRITE  (6,ia40)  (HSl(I),laH3,H2) 

450  CONTINUE 

c 

C CAicULATE  gradients  OF  ACTIVE  SIDE  CONSTRAINTS 


3010 

3020 

3030 

3040 

3050 

3060 

30/0 

3060 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160  ; 

3170  < 

3100 
3190 

3200  I 

3210 

3220 

3230 

3240 

3250 

3260 

3270  ; 

3200 

3290  j 

3300  I 

3310  I 

3320 

3330  - ' 

3340  i 

3550  i 

3360  ' 

3370  ; 

3300  ! 

3390  I 

3400 

3410  I 

3420 

3430 

3440 

3450 

3460  . 

3470 

3400 

3490  *; 

3500  • • 


1^.  aL.u.„  vij-j.  lujiy^snnnpraiiiiiiiip 
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c ...................................... 

IF  (NSIOE'.EO.O)  60  TO  5t0 

HCNIsNCON 

N|aO 

DO  4R0  t*T,NOv 
C LONER  round. 

XI«X(I) 

XID»VL8(l) 

X12«ABS(XrD) 

IF  (XT2.LT.I.)  Xl2»t. 

6I>(X10-Xn/Xl2 

IF  {CT,LT..i,0E-6)  GO  TO  «70 

N|»Ht*l 

HSHH1)»-t 

NACNNAC«I 

IF  (NAC.6r.N3)  60  TO  790 
HCNIaMCNtf I 

00  960  J«(,nOV 
960  A(NAC.J)*a. 

A(NAC,I)»;i. 
lC(NAC)«HrNt 
6(HCN|)cGt 
ISC(MCNl),i 
C UPPER  bound. 

970  XTDaVUB(l) 

X|2aA8S(XiO) 

IF  (X12.LT.t.)  Xl2»t, 

6Ia(XI«XIn)/X]2 

IF  (6I.LT..t.0E-6)  GO  TO  990 

HlaM)»i 

HSl(Ml)aI 

NAcaNAQAI 

IF  (NAC.Gr.Ni)  60  TO  790 
NCNtaHCNlli 
DO  9B0  Ja^.NOV 
900  A(NAC,J)aA. 

A(NAC,I)«i. 

IC(NAC)«HrNI 
6(nCN1 )aC| 

ISf(NCN|)a| 

990  continue 
C 

C PRINT 

C PRINT  AcTyvE  SIDE  CONSTRAINT  NUHdeRS. 
IF  (IPRINt.lI.I)  60  TO  5|0 
NRITE  (6,J«90i  N| 

IF  (Ni.EO'o)  60  TO  SlO 
"RITE  (9,||00) 

DO  900  lai.Hl.tS 


S910 

3320 

}SiO 

3990 

3390 

3960 

3970 

3900 

3990 

3600 

3610 

3620 

3630 

3690 

3690 

3660 

3670 

3600 

3690 

3700 

3710 

3720 

3730 

3790 

3790 

3760 

3770 

3700 

3790 

3000 

3010 

3020 

3030 

3090 

3090 

3060 

3070 

3000 

3390 

3900 

3910 

3920 

3930 

3940 

3990 

3960 

3970 

3900 

3990 

9000 


4 
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N2sM|N0(N;,t«tR) 

mRITE  (6«ia«0)  (MSl(J),Jat,H2) 

CONTInuF 

PRINT  GRAntPNTS  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS 
IF  (IPBIN^.lT.«)  CO  TO  S5« 

"RITE  (6,{}SO) 

DO  520  I«i ,nOV>6 
HJ»HIN0(Nnv,I*5) 

"RITE  (6mo|0)  I,  (OF(J),J»I,Ml) 

IF  (NAC.Eo.O)  CO  TO  550 
"RITE  (6,^5601 
DO  5qo  Isi.nAC 
NI»IC(I) 

N2sMi.nC0m 

N3b0 

IF  (HE.CT'ot  MjaIAe8(MSt(H2)) 

IF  (M2.LE,0)  "RITE  (6,900)  HI 
IF  (Ma.Cr^O)  "RITE  (6,t000)  HS 
DO  530  KS|,>(0V,6 
NI».HIN0(Nf>V,K45) 

"RUE  (6,io|0)  K,(A(I,J),JaK,H|) 

"RITE  (6,|'370) 

continue 


4010 
4020 
4030 
4040 
4050 
aOoO 
4070 
4000 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4160 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
42o0 
4270 
4260 
4290 
4300 
4310 
4320 
4 330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 


FIND  OlREfTlON  OF  steepest  DESCENT  OR  CONJUGATE  OIRECHON. 

NVC>0 

NFEASaO 

KCOUNTaKCnUNT*! 

IF  KcOUNT  6T.ICN0IR  RESTART  CONJUGATE  DIRECTION  aLGURITh" 
If  (kcOUnt.gT.1CNOIR.OR.108J.EO«2)  KCOUNTal 
IF  (KCOUNt.fO.1)  JDiRaO 

IF  JOIR  « 0 fl'^O  DIRECTION  OF  STefPEST  DESCENT. 

Call  CNMNnj  (JOIR, SLOPE, DFTOFI, OF, S,N1) 

CO  To  610 

continue 


constrained  function 


FIND  USABie-FEASIBLE  OIRECHUN 

KCOUNTaO 

JOIRaO 

PHIsIC.aPmi  • 

IF  (PHI, Ct. 1000,)  PNIaiOOO, 


ALP»1.0Eapo 

IF  (NAC,Gf.O) 

GO  TO  560 

- 

unconstrained  function 

s -I 


t ■ 
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SEPT.  77 


- I 


■ "" 

r ! 


ffi 


S70 

5SO 

C 

C 

C 

C 

C 

C 


590 


600 

610 

C 

c 

C 


IF  (NFEAS.EO.t)  PMIsPhM 
CALCULATE  direction,  S. 

Call  CNMNns  (NVC,SLnPE,0F,6, ISC, IC,A,S,C,NSt,8,Nl.N2,N3,Na,NS) 

IF  This  design  is  feasible  ano  Last  iteration  has  infeasible, 

SET  AROBJla.OS  (5  PERCENT). 

IF  (NVC.EO.O.aND.NFEaS.GT.I)  A808J1«.OS 
IF  (NVC.Eq.O)  NFEASSO 
IF  (IPRINf.LT.J)  GO  TO  580 
RRITE  (6,ij80) 

00  570  l»i,NAC,6 
N|*MIN0(N*c,U5) 

MRITE  (6,?oiO)  I,(A(J,N0v1),J»I,mi) 
mRITE  (6,1220)  S(NOVl) 

continue 


0NE>0IMENSI0Nal  search 


IF  (S(NOVj),LT.I.Ot-6,ANO,NVC,EO.O)  GO  TO  690 

FIND  alpha  To  obtain  a FEASIBLE  DESIGN 

IF  (NVC.Eo^)  go  to  610 
ALP*-1, 

DO  600  I>T,NAC 
NCI«IC(I) 

Ct>G(NCI) 

CTC»CTAM 

IF  (ISC(Nrl) .GT.O)  CTC«CT8H 
IF  (Cl.LE'.CTC)  CO  TO  600 
ALPIsO. 

DO  590  J»j,NOV 
AlPI>ALPUs(J)*A(1,J) 

ALP1«ALP1,A(I,N0V2) 

IF  (ABS(A|  PI ).Lr.l.0E«20)  60  TO  600 

alpu-ci/alpi 

IF  (ALPI.ftT.ALP)  ALPiALPI 

continue 

continue 

” LIMIT  chance  to  ABOBJUOBJ 

ALPtal.0E;20 

StsABSIoa  f) 

IF  (Sl.LT..on  Sla.Oi 

IF  (aBS(S| nPE).6T.1.0E-20)  aLPI *AR0BJ 1 aSI/SLOPE 
ALPlaABS(iLPI) 

IF  (NVC.Gt.O*  ALPlaio.AALPl 
IF  (ALPI.M.AlP)  ALPaALPi 

LIMIT  change  IN  VARIABLE  TO  ALPHaX 


6510 

6520 

6530 

6540 

6550 

4560 

6570 

6500 

6590 

6600 

6610 

6620 

6630 

6660 

6650 

6660 

6670 

4680 

4690 

4700 

4710 

6720 

6730 

6760 

6750 

4760 

4770 

4780 

4790 

6800 

4810 

4820 

4830 

4840 

6S50 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

6930 

6960 

6950 

6980 

6970 

4980 

6990 

5000 
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ALPll.«t,OF*ZO 
00  62Q  I«i,NOv 
SI>AHS(S(f)) 

XI«ABS(X(;)) 

IF  (SI.LT.i.Of-JO.oR.XI.lT.O.I)  go  to  620 

ALPIsAtPH^X*A(/$I 

IF  (ACPI  ,1  T.ALPin  ALPlIaACPl 

continue 

IF  (NVC.Gf.O)  *LPU»IO.«ALPU 
IF  (ALPH’.LT.ALP)  ALP«ALPll 
IF  (ALP.Gr.i.OEtaO)  alP«1,0E»20 
IF  (ALP.Lf.I .OE-20)  ALPai,0E-20 
IF  (IPRINt.lT.J)  go  to  6«0 
"RITE  (6,?J90) 

DO  650  1*1, NOV, 6 
HtsHIN0(Nr>v.l»5) 

"RITE  (6,iolO)  I,(S{J),J»I,M1) 

"RITc  (6,iitO)  SLOPE, A(.P 

continue 

IF  (NCON.gT.O.OR.NSIOE.GT.O)  go  to  660 


00  hnE-OIMENSIUNaL  seakch  for  unconstrained  function 

JGOTOsO 

CONTINUE 

Call  CNMN03  (*,s,of,c,a,ic,scal,c,ni,n2,n3,n«) 

IG0T034 

IF  (JGOTO'.gT.O)  go  to  950 
J01»«t 

proceed  To  convergence  check. 

GO  To  680, 

SOLVE  One-dimensional  search  problem  for  constrained  function 
continue 

JGOTOaO 

continue 

Call  CNMN^b  (X,DF,6,1SC,S,GI ,C2,VLtt,VUB,SCAL,Ni,N2) 
iGOTOaS 

IF  tJGOTO'.cT.O)  GO  TO  95o 
IF  (NAC.Eo.O)  JOIRal 


update  alphax 


continue 

continue 

IP  (ALP,6t.1,0E*19)  ALP*0. 

UPDATE  ALphAX  to  be  average  UF  MAXIMUM  CHANGE  IN  X(I) 
ANO  ALHPA*. 


I 
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TOO 


C 


C 

C 

C 

C 


no 


7^0 


7J0 

740 


750 


760 


770 

700 

C 

C 


*LP1I»0. 

00  700  IS), NOV 
SIsABS'(S(t)) 

XIsAB8(X(j)) 

IF  (XI.LT  i.OE-tO)  CO  TO  700 

alpi»alp*5i/xt 

IF  (AtPl.eT.ALPU)  AtPUsALPl 

continue 

*LPU«.5*fALPU»AlPMAX> 

ALP12sS.*iLPMAX 

IF  (ALPl  r.r.T.ALPlZ)  ALPllsALPtZ 

ALPHAXsALpi t 

NCOBJsNCUeJ^t 

ABSOLUTE  rMANCE  IN  OBJECTIVE. 

OBjOsOHJlinflJ 

OBJBsABSCnnJO) 

IF  (OBJB.i T.l.OE-tO)  OHJBSO. 

IF  (NAC.Eq.O.ON.UBJB.GT.O.)  NCORJsO 
IF  (NCOBJ'cT.n  NCORJsO 


PRINT 


PRINT  MOVp  parameter,  ^4EW  X. VECTOR  AND  CONSTRAINTS. 

IF  (IPRINt.LT. J)  50  TO  7lO 

NRITE  (6.{aoO)  ALP 

IF  (IPRINt.I.T.2)  go  TO  780 

IF  (ObJB.IJT.O.J  CO  TO  720 

IF  (IPRTNt.fO.2)  mRITE  (6.1«10)  ITER, OBJ 

IF  (IPRlN^.eT.2)  mRITE  (6.1420)  OBJ 

CO  TO  700 

IF  (IPRINf .eO.2)  CO  TO  750 
NRITE  (6,Ta50)  OBJ 
CO  TO  700 

"RITE  (6,jaa0)  ITER, OBJ 
"RITE  (6,)a60) 

00  750  IS|,nOv 
FFlsi. 

IF  (NSCAL'.NC.O)  FFlsSCAL(I) 

Cl (I)sFFl,x(I) 

00  760  tsi.fi|UV,6 
MlsMIM0(Npv,I*5) 

"RITE  (6.1010)  I. (Cl (J).JSI.MI ) 

IF  (NCON.pq.O)  GO  TO  7B0 
"RITE  (6.taR0) 

00  770  |sj.NCnN,6 
M|sMINO(NrON, It5) 

"RITE  (6,tfl|0)  I,(C(J).JsI.Ml) 

CONTINUE 


5510 

5520 

5530 

5500 

5550 

5560 

55/0 

5560 

5590 

5600 

5610 

5620 

5630 

5600 

5650 

5660 

5670 

5660 

5690 

5700 

5710 

5720 

5730 

5700 

5750 

5760 

5770 

5780 

5790 

5600 

5610 

5620 

5B30 

5800 

5650 

5860 

5870 

5860 

5690 

5900 

5910 

5920 

5930 

5900 

59*.i6 

5960 

5970 

5980 

5990 

6000 


CHECK  CONVERGENCE 
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c «oio 

C STOP  IF  lTE»  equals  ITMAx,  6020 

IF  (ITER.fiE-lTHAX)  GO  TO  790  6030 

C .........I...........................................******— •••-  6000 

C ABSOLUTE  change  IN  OBJECTIVE  60S0 

C .........I..........................................— — A060 

oajHsABS(nnjO)  6070 

KOBJsKOaj;t  6080 

IF  (OBJB,r£.Oa8FON,OR,NFEAS,6T.O)  KOBJsO  6000 

c 6100 

C RELATIVE  CHANCE  IN  OBJECTIVE  6110 

c 6120 

IF  (A8S(Onjl).6T.1.0E-IO)  OBJOaOBJO/ABSlOBJl ) 6130 

An06Jls,S«(ABS(AB0BJ)«ABS(0aJ0) ) 6iao 

ABOBJaABS/OSJO)  6150 

lOBJalOBJ^i  6160 

IF  (NVC.Gt.O.OH.OBJO.CE.OELFUN)  IoBJsO  6170 

IF  (IObJ.rc.ITRM.OR.KObJ.GE.ITHH)  gO  TO  790  6180 

OBJUOBJ  6190 

C 6200 

C REOmcF  CT  if  objective  FUNCTION  IS  CHANCING  SLOHLT  6210 

c 6220 

IF  (lOBJ.i'T.l.OR.NAC.EQ.O)  GO  TO  270  6230 

CTsOCTaCT  62«0 

CTL*CTL*OrTL 

IF{ABS(CTy.Ll.CTHlN)  CT=-CTHIN  6260 

IF(A8S(Cti i.UT.CTLhiN)  CTLs-CTLHIn  6270 

c 6280 

C CHECK  FOR  UNBOUNOEO  SOLUTION  6290 

C .........1........... 6300 

c STOP  IF  O9J  IS  LESS  Than  -l.OEtOO,  6310 

IF  (OBJ.Gt.-I .OE^ao)  GO  TO  270  6320 

NRITE  (6,680)  6530 

790  continue  6390 

IF  (NAC.Cr.Nl)  WRITE  (6,1500)  6350 

C 6360 

C ••••«*••*«*•»••*  final  function  INFORHATION  ••••••**•**••*••***•  6370 

C 6380 

IF  (NSCAL'.FO.O)  go  to  820  6390 

C UN.SCALE  the  OESIGN  variables.  6400 

00  810  I*i,N0V  6410 

XIaSCALd)  6420 

IF  (NSIDE.EO.O)  CO  TO  810  6430 

VLB(I)*XI.vLB(I)  6440 

VUB(I)*XI*vi|B(I)  6450 

810  X<I)aXI»x;i)  6460 

C 64  70 

C PRINT  FINAL  results  6480 

c 6490 

820  IF  (IPRINt.EQ.0,OR.NAC.GE,N3)  GO  TO  940  6500 


I 

145 

I 

I 
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NRITC  (6,Ts|0) 

HRITE  (6«ial0)  OBJ 
NRlTt  (6,^060) 

DO  830  1>1 ,nOv«« 

HlmMlM0(Nt)v,I*5) 

• SO  NRUt  (6,ioiO)  I,(X(J),JaI,Nl) 

IF  (NCON.po.O)  CO  TO  8R0 
"RITE  (6,f4M0) 

DO  Sao  lBi ,nCON,o 
Nl«HINO(NrON/I*S) 

MO  NRiTE  (6«iOtO)  I. (G(J)>Jal>Mj ) 

C determine  which  constraints  are  active  ano  print. 

NAC»0 

NVC«0 

DO  860  laf.NCON 
CTAaCTAM 

IF  (ISCfI).Gl,0)  CTA«CTBh 
CIsG<I) 

IF  (CI.GT'cTA)  GO  TO  S50 
IF  (GI.LT  cT.ANO.ISC(I).EO.O)  GO  TO  860 
IF  (CI,LT'cTL.ANO.ISC(I),GT,0)  CO  TO  860 
NAC>NACa1 
lC(NAC)aI 
GO  To  860 
850  NVC»NVC*1 
NSHNVOar 
060  continue 

NRITE  (6,To601  NAC 
IF  (NAC.Eq.O)  60  TO  870 
HRHe  (6,to70) 

PRITE  (6.1060)  (IC(J) .JsifNAC) 

870  PRITE  (6,7oA0)  NVC 

IF  (NVC.Eq.O)  go  to  880 
PRITF  (6,J(>70) 

PRITE  (6.1090)  (HSt (J) . JaJ .NVC) 

880  CONTINUE 

800  continue 

IF  (NSIOE'.pn.O)  CO  TO  980 

C determine  which  side  constraints  are  active  and  PRINT. 

NAC»0 

DO  01 0 I«?,nOV 
XI«A(I) 

*I0»VI.8(I) 

X|2»A8S(Xjr>) 

IF  (Xt2.LT.l.»  X18«|. 

GI»(XI0-xj,/X|8 
IF  (Ct.LT..) .OC-6)  CO  TO  000 
NAC*NACa1 
HSl (NAC)s^I 
000  XIOaVUBCI^ 


6510 

6520 

6530 

6500 

6550 

6560 

6570 

6580 

6500 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6600 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6700 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6800 

6900 

6010 

6020 

6030 

6040 

6950 

6060 

6070 

6080 

6040 

7000 
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t 
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Xt2«ABS(XT0)  7010 

IF  (XlZ.lT.t.)  Xl2»i,  7020 

6I»(Xl-XIn)/Xt2  70J0 

IF  (GI.LT'..i  .OE-6)  GO  TO  910  70«0 

NaC>NAC*1  7050 

HSKNAOst  7060 

910  continue  7070 

NPITE  (6,7090)  NAC  7000 

IF  (NAC.Eo.O)  go  To  920  7090 

nRITE  (6,7i00)  7100 

NRITE  (6,(490)  (HSl(J),Jal,NAC),  7110 

920  continue  7120 

NRITE  (6,7i50)  7130 

IF  (ITER.r.F.ITMAX)  write  (6,1160)  7190 

IF  (NFEAS' GE. 10)  WRITF  (6,1)70)  7150 

IF  (lOHJ.GE.ITMM)  WRITE  (6,1190)  ITRM  7160 

IF  (KOBJ.gf.ITRN)  write  (6,1200)  iTRM  7170 

“RITE  (6,72(0)  ITER  71M 

“RITE  (6,iSP0)  NCAL(I)  7190 

IF  (MCON.rt.O)  WRITE  (6,1530)  NCAU(l)  7200 

IF  (NFOG.nE.O)  “RITE  (6, 1540)  nCAL(2)  7210 

IF  (NC0N,rt.0,AN0.NF0G,EQ,2)  write  (6,15S0)  NCAL(2)  7220 

C 7230 

C RE-SET  BASIC  PARAHETERS  to  input  values  7290 

C ................  7250 

990  ITRWrlOMl  7260 

iTMAxalOMj  7270 

ICNOIRsIOmI  7260 

OELFUNsOm;  7290 

OABFUNsDMt  7300 

CTsOHS  7310 

CTHiNsOHO  7320 

CTL«DM5  7330 

CTUM1NS0M(^  7390 

TheTa«DM7  7350 

PHlsOHB  7360 

FDCH«0M9  7370 

FOCHMaONln  7380 

iGOTOsO  7390 

950  continue  7900 

IF  (NSCAL' EO.O.OR. IGUTO.EQ.O)  RETURN  7910 

C UN.SCALE  variables,  7920 

DO  960  lai.NOv  7930 

C(I)»X(I)  7990 

960  X(I)«X(I)«SC*L(I)  7950 

return  7960 

C 7970 

C FORMATS  7960 

C 7990 

C 7500 
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SUBROUTlNp  cONMIM  . CONSTBAINCO  FUNCTION  MINIMIZATION  SEPT.  77 

970  format  (/>/SX»72HA  COMPLETELY  UNCONSTRAINED  FUNCTION  MITM  A LINEAR  7510 
1 Objective  ts  specified//iox,shlinobj  s.is/iox.shncon  s.is/iox.s  7520 
2HNSI0E  a, 15//SX,35MC0nTR0L  RETURNED  TO  CALLING  PROGRAM)  7530 

960  format  (///SX,56HC0NHtN  HAS  ACHIEVED  A SOLUTION  OF  OBJ  LESS  THAN  . 7540 

tl.OE>40/5v,32HSOLUTION  arrears  TqaBe  UNBOUNpEO/5X,26HOPTIMiZATION  7550 

2IS  TERHINiTEO)  7560 

990  format  (Sv.tTHCONSTRAINT  NUMBER. 15)  7570 

1000  format  (Sv.zThSIDE  constraint  on  variable. 15)  7580 

1010  format  (3v,t5,lM),2X,6Cl5,5)  7590 

1020  FOfJMiT  (/EX, 35HLlNtAH  CONSTRAINT  IDENTIFIERS  ( ISC)/5X. 36HN0N-ZtR0  7600 

IINOICATES  LTNEAR  CONSTRAINT)  7610 

1030  format  (3v,t5,lH),ZX,)5I5)  7620 

1040  format  t/c;x,26HALL  CONSTRAINTS  ARE  LINEAR)  7630 

1050  format  (/sX,30HALL  constraints  ARF  non. LINEAR)  7640 

1060  format  (/EX.OHTHERe  AHe.I5.19M  ACTIVE  CONSTRAINTS)  7650 

1070  FORMAT  (5v.22hc0nSTRAInT  nUMhERS  aHE)  7660 

1060  format  (/5*,9hTHEBE  AHE.I5.21H  VIOLATED  CONSTRAINTS)  7670 

1090  format  (/rX.RhTHERE  AHe,IS.24H  ACTIVE  SIDE  CONSTRAINTS)  7680 

1100  format  (Sx.aiHOECISTON  variables  aT  loner  or  upper  80UNOS.30M  (MIn  7690 

lUS  INOICAteS  loner  BOUND))  7700 

1110  format  (/sX.2?HUNE.0ImENSI0NAL  SEAKCH/5X, 15HINITIAL  SLOPE  x,E12.4,  7710 

12X. l6HPR0po$E0  ALPHA  a, £12.4)  7720 

1120  format  (/;/sX,35H*  • CONmIn  DETECTS  VL8( I ) .G T, V08( I ) /5X, 57mFIX  IS  7730 

ISET  X(I)avLB{l)aVU8(n  * .5* ( VLB ( i ) ♦VUfl( I ) FOR  I a.i5)  7740 

1130  format  (///5*,41H»  * CONmIN  detects  INITIAL  X ( I ) .LT , VLB! I ) /5X . 6Mx ( 7750 

ll)  ».E12,a,2*.8MVLe(I)  a,El2.«/5X,35MX(I)  IS  SET  EOUAL  TO  VLBd)  F 7760 
20R  I a, 15)  7770 

1140  format  (///5X,41M«  * CONMIN  DETECTS  INITIAL  X ( I ) . GT , VUB ( 1) /SX . 6Hx ( 7780 

II)  a,El2.fl,?*,8MVU8(I)  a, E 1 2. 4/5X , 35HX ( I ) IS  SET  EOUAL  TO  VUBd)  F 7790 
20R  I a, 15)  7800 

1150  format  {/^x,2imTERmINaTI0N  CRITERION)  7810 

1160  format  (InX.lTMlTER  EOUAlS  ITMaX)  7820 

1170  format  (lnX,62MTEN  CONSECUTIVE  ITERATIONS  FAILED  TO  PRODUCE  A FEAS  7830 

IIbLE  DESIrn)  7840 

1190  format  (tAX.43HAaS(l.OBJ(I-t)/OeJ(I))  less  than  OFLFUN  F0R,I3.11H  7850 

UTERaTIONs)  7860 

1200  format  dftX,43HAHS(0BJ(I).0HJ(I.l))  LESS  THAN  DA8FUN  FUR,I3.1lH  7870 

1ITERATI0N4)  7880 

1210  format  (/sX,2PMNUMe£R  OF  iterations  a, IS)  7890 

1220  format  (/^X.EBHCONSTRAINT  parameter,  beta  a,El4,5)  7900 

1230  format  (iHt ,////12X,27(2h*  ) / 1 2X , l H*, 5 1 X , 1 H,/ 1 2X , l H,, 20X , 1 1 HC  0 N 7910 

IM  1 N.20X^tM«/12X. 1H».51x. IH*/12X, 1H», 15X.21M  FORTRAN  PROGRAM  FOR  7920 

2. ISX. tM«/l2x. 1M».51X, 1m»/I2X, lH»,9X.3lMCONSTR*INeo  FUNCTION  MINImI  7930 

3ZATI0N,9X^ ,H«/12X, 1H*,51X, IM*/12X, IM,,2X,48MNASA/4MES  RESEARCH  CEN  7940 

4TCR.  MOFFriT  FIELD.  C AL IF . . I X . IH*/ 12x . 1 H«, 5 1 X. I H« / 1 2X. IM», 1 3X, 25MV  7950 

SERSION  II  JULY,  1975, 1 3X, |H*/i2X, iH*, SIX, 1H*/|2X,27(2h*  ))  7960 

1240  format  (////5x,33mcONSTR4IM£0  FUNCTION  MINIM  I Za T I0N//5X . 1 ShCONTRol  7970 

1 PARAMETERS)  7980 

1250  format  (/5X,60MIPRINT  NqV  ITmaX  NCON  NSIDE  ICNOIR  NSC  7990 
I4L  NF0G/Bi8//5x« 12hlIN0bJ  I TRM,5X, 2hN1 . 6X . 2hN2, 6x. 2hn3. 6X, 2HN4 . 8000 
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SUBROUTINp  cOnmIN  • constrained  FUNCTION  MINIMIZATION  SEPT,  77 

«6X,?MN5/eTfl)  8010 

1260  format  (/oK.aHFDCH, 12X,5HF0CHH/JX,2£ia,5)  8020 

1270  format  (/qx,2HCT, iaX,5MCTMIN, uX,3HCTL, 1 JX,6HCTLMIN/lX,a(2X,El«.5)  8050 

l//9X,5HTMrTA, 1 lX.SHPHI, liX,6H0ELFUN, 10X,6HOABFUN/lX,«{2X,Eia.5) ) BOaO 

1280  format  (/^x.aOHLOMER  BOUNDS  ON  DECISION  VARIABLES  (VLB))  80SO 

1290  Format  (/^x.aoMUPPtH  bounds  on  decision  variables  {vusd  8060 

1500  format  (/;//5X,35HUNC0nSTRAINED  FUNCTION  MINJMIZATION/ZSX, IBHCONTR  0070 

lOL  PARAMETERS)  8080 

1310  format  (/«;x,21MSCALINC  VECTOR  (SCAD)  8090 

1320  format  (/>//SX,22H8EGIN  ITERATION  NUMBER, IS)  8100 

133®  format  (/^x.OHCI  a,Elu.5,5X»5MCTL  *# E I a,5, 5X , 5MPH1  «,EU.5)  8110 

1500  format  (/sx,25MN£m  SCALING  VECTOR  (SCAL))  6120 

1350  format  (/sx, ISMGRAOIENT  of  OBJ)  6130 

1360  format  (/sx.OoHGRAOIEnTS  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS)  8100 

1570  format  (ly  ) 8150 

1380  format  (/^x,37HPUSH-OFF  FACTORS,  (THETA(I),  Is1,NaC))  BUO 

1390  FORMAT  ( /^x , 27HSE *RCH  DIRECTION  (S-VECTOR))  8170 

1000  format  (/^x, 18HCALCULATE0  ALPHA  s,£10.5)  8180 

1010  FORMAf  (/;//5X,6MlTER  a, 1 5, 5X , SHOB J a, E 1 0 , 5, 5X , 1 6HN0  CHANGE  IN  OBJ  8190 

1)  8200 

1020  format  (/^x,5H08J  a,Et5.6,5X, IBHNO  CHANGE  ON  OBJ)  8210 

1030  format  (/sx.ShOBJ  a,E15,6)  8220 

1000  format  (/>//5x,6hITER  a , IS , 5X , SHORJ  a,E10,5)  8230 

1050  format  (/>5X,28H1NITIAL  FUNCTION  I NFORMA T t ON/ZS* , 5H08 J a,E15,6)  8200 

1060  format  (/^x,29H0£CJS10N  VARIABLES  (X-VECTOR))  8250 

1070  format  (3x,7£t3.«)  6260 

1080  format  (/sX,28MCUNSTRAINT  VALUES  (C-VECTOR))  8270 

1090  format  (5x,|5l5)  8280 

1500  format  (/sX,59HTHE  number  OF  ACTIVE  AND  VIOLATED  CONSTRAINTS  EXCEE  8290 

IDS  N3-t ,/sX,66H0IMENSI0NE0  SIZE  OF  MATRICES  A AND  B AND  VECTOR  IC  8300 

2is  lNSUFFrcTENl'SX,6lM0PTIMlZAl ION  T£RMINATeo  ANq  CONTROL  RETURNED  8310 

3 TO  MAIN  program.)  8320 

1510  format  ( iHt ,////“*• JOHFINAL  optimization  INFORMATION)  8330 

1520  format  (/^x,3?mOBJECTIVE  FUNCTION  MAS  EV alUaTEO, 8X , IS , 2X ,5HTIMES ) 8300 

1530  format  (/Rx,35HcONSTRAint  FUNCTIONS  mere  £ VAlUATeo» 1 1 0 , 2X , 5MT IMES)  8350 

1500  format  (/rx,36MGRadIENT  of  OBJECTIVE  haS  CALCULA Teo» I9» 2X, 5HT I MES)  8560 

1550  format  (/,;x,O0HCRaoIENTS  OF  CONSTRAINTS  MERE  C ALCUL A TEO, 15 , 2X , 5M ( I 8370 

IMES)  8380 

END  8390 
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tUBMOUTINr  c^NNOI  SEPT,  77 


SUfiPOUTINr  (JCnT0,X,0F,6»ISC«IC«A>61.V|.B»Vua,SCAL«C,NCAL»0X  10 

l»0Xl«Pt,XT.tII«NI,N2,N),N0)  20 

COHMON  /CnmnI/  1PPINT,N0V, 1TMAX,NCUN,NSI0E> ICNOlR,NSCAL,UFOG,FOCH,  50 

lFOCHH»cT»f  THlN,CTL,CTL»'lN,THtT*,PMl,N*c»OELFUN,o*SFUN,HNOBJ,lT«M,  40 

2ITER, INFOc.tGOTO. iNFOfOHJ  SO 

dimension  X(Nt),Dr(Nl),G(N2),ISC(N2),IC(N3),*(N5,Nl),Gl(N2),VLB(Nl  60 

t),VUH(Nl),SCAL(Nl),NCAL(2)>C(N4)  70 

c Routine  to  calculate  ckaoieni  information  by  finite  oifference.  ao 

C BT  G.  N,  vANOERPLAATS  JUNE,  1972.  90 

C NASA. AMES  research  center,  MOFFETT  FIELD,  CALIF,  100 

n IF  (JCOTO'FQ.t)  GO  TO  10  110 

IF  (JGOTO  eO.2}  go  TO  70  120 

iNFOGaO  150 

InFbinFO  140 

NaC>0  ISO 

IF  (LINOBi.nE.O, AND. ITER, CT.l)  GO  TO  10  160 

C ............................  I 70 

C GRADIENT  OF  LINEAR  OBJECTIVE  ISO 

c 190 

IF  (NFDG.fO.I)  JGOTOal  200 

IF  (NFDG.FO.I)  return  210 

10  continue  220 

JGOTOaO  250 

IF  (NFDG.FO.I. AND, NCON, £0,0)  RETURN  240 

IF  (NCON.eq.O)  60  TO  40  250 

C ..........................  260 

c * • • OfTFRmINE  MHICH  constraints  are  active  or  violated  * * • 270 

C 260 

00  20  I*1,ncON  290 

IF  (6(I).|T.CT)  GO  TO  20  500 

IF  (ISC(I).gT.O,ANO.C(I),LT,CTL)  CO  TO  20  510 

NAC>NAC«1  520 

IF  (NAC.Gf.n5)  return  550 

IC(NAC)*I  540 

20  CONTINUE  550 

IF  (NFDG.FO.I. and. NAC.EQ.O)  RETURN  560 

IF  ((LINOaj.GT.O, AND, ITER, GT.l), and. NAC.EO.O)  RETURN  570 

C 560 

C STORE  values  OF  CONSTRAINTS  IN  Gl  590 

c .......a.;........................................................  400 

DO  50  lal.NCON  410 

50  Cl(I)sG(I)  420 

40  continue  450 

JGOTOaO  440 

IF  (NAC.EtJ.o.ANO.NFOC.EO.l)  RETURN  450 

C .........^.......a......... ............................... ........  460 

C CALCULATE  gradients  470 

c .......a.:....................... 460 
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SUBROUTINE  CNMNOI 


SEPT. 


FlsOBJ  510 

ln«0  520 

SO  lllsllltt  530 

XlsXdll)  ■ 540 

OXsFDCH*Xt  550 

DXsA8S(0X)  540 

FocnIsFOChm  ' 570 

IF  (NSCXL' MF.O)  FOCMUFOcmH/SCXLCIII)  5S0 

IF  (DX.LT'foCHI)  Ox«FOCHi  590 

XlsXdOX  600 

IF  (NSIOE' FO.O)  00  TO  60  610 

IP  (Xl.LT'vLBfllD.ANO.OX.LT.O.)  X1*XI.0X  620 

IF  (XI.GT'vuB(III).ANO.Ox.GT.O.)  X1«XI.0X  630 

60  0X131. /OX*  640 

X(iIi)3Xijnx  650 

NCAL(i)3Nr*u(n*i  060 

c .........1............................................-.— 670 

C FUNCTION  evaluation  660 

c — 690 

JGOTOsa  700 

return  710 

70  CONTINUE  720 

X(III)3XI  730 

IF  (NFOG.fo.O)  OF(ni)=Oxl»(OSJ-Fl)  740 

IF  (NAC.Eo.O)  GO  TO  90  750 

C 760 

C OfTEPnINE  GRAOIENT  components  of  active  constraints  770 

c 780 

DO  80  JxI.naC  790 

Il3lC(J)  BOO 

80  A{J,in)3nxi*(G{ll)-6l{li))  810 

90  CONTINUE  820 

IF  (III. Lt. NOV)  GO  TO  50  830 

iNFOGsO  840 

iNFOxINF  850 

JGOTOsO  860 

OBJxFI  870 

IF  (NCON.fO.O)  return  880 

C 890 

c Store  cdnpent  constraint  values  back  in  g-vecior  9oo 

c 910 

DO  100  I»i,NCON  920 

100  6(1)361(1,  930 

return  940 

End  950 


I 

SUBROUTINr  C^MN02  SCPT.  77 

i 

1 SURROllTlNp  CNMN02  (NCALC, SLOPE, OFtOFI, OF, s.Nt)  tO 

COhMQN  /CmmnI/  IPR1NI,N0V,1TMAX,Mc0N,hSIDE,ICN0IR,NSCAL,NF06,FDCH,  20 

IFOCHH,CT,rT**I»<#CTL,crLMIN,THtTA.PHl,NAC«OELFUN,046FUN,LlHOSJ,ITHH,  30 

2ITER,INF0«;,iG0T0,  INFO, OBJ  RO 

i DIMENSION  nF(Nt ) ,S(N1 ) 50 

c routine  Tn  determine  conjugate  direction  vector  or  direction  00 

c OF  steepest  OFSCENT  for  unconstrained  function  minimization.  70 

C or  6.  N.  vaNOFPPLAATS  APRIL,  tv72,  80 

C NaSA-aheS  peSEARCM  CENTER,  moffETT  FIELD,  CALIF,  00 

C NCALC  » CiLCULAlION  CONTROL.  100 

C NCALC  ■ 0,  S > STEEPEST  DESCENT.  110 

C NCALC  si,  S s CONJUGATE  DIRECTION.  120 

C CONJUGATE  oTRECTIOm  IS  FOUND  BT  F|.ETCME«-»EcrES  ALCOMITHM.  130 

c — ........................  ISO 

C CALCULATE  NORM  OF  GRADIENT  VECTOR  ISO 

c 160 

0FT0F*0.  170 

DO  to  Isl.NDV  180 

OFIsOFtl)  190 

10  OFTDF*OFTi,f»DFI»OFI  200 

c — .................................................  210 

C •*•*•***•*  FIND  direction  S ••**••••«*  220 

c 230 

IF  {NCALC' nE.D  go  to  30  2«0 

IF  (OFTDF,  1 T.l.uE.aO)  GO  TO  30  250 

C ..................................................................  260 

C find  FLETchEH-NEEVES  conjugate  direction  270 

c .... 280 

BETArOFTOp/OFTOFl  290 

SLOPEsO.  300 

00  20  IxI.nDV  310 

OFIsDF(I)  320 

SIr8ETA*S(l).0FI  330 

SLUPEsSLOpf «SI*0F1  3R0 

20  S(I)«SI  350 

GO  TO  50  360 

30  continue  370 

NCALCsO  380 

C 390 

C calculate  direction  of  STEEPEST  DESCENT  000 

c a 1 0 

DO  40  I«1,nDV  420 

40  S(1)s.0F(t)  430 

SLOPE»-OFtdF  440 

50  Continue  450 

C .........i........................................................  460 

C normalize  S to  max  ABS  value  of  unity  470 

C 460 

Siso,  490 

00  60  I«1.nOV  500 


I 
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SUSRoUTlNr  CMMN02 

S2a*BS(S(T)) 

If  (Sa.CT'.si)  »1«S2 

coNrjNue 

if  (St.LT‘|.0E*20)  Slt|,oC-20 

OFTOnaOFrnf^Sl 
00  fo  Ia|  unv 
S<naS|*Sf  I) 

SL0PEa3J*SL0PE 

return 

End 


SCRT.  77 


SUBAOUTINr  CNMN03 


SePT,  77 


! 


i 

1 


SuBPOllTINp  CNHN03  ()(,S,0F,G,A,IC,SC«L,C«NI,N2,N3,Na) 

COMMON  /CnmnI/  IPPINI,n0V, ITMAX,Nc0N,NSIDE>ICN0IR,NSCAL,NF06,F0CH, 
IFOCHM,CT«^TMlN,cTL»ClLHlN«TH|>T*>PHl,NAC>OELFUN,OAnPUN>LlNOBJ,lTHM, 
21  ter, INFOr. TGOTO, INFO. OBJ 

common  ./Crnsav/  01(20), Slope. 02(3), XI, 03, 
2ALP.FFF,Ai,A2.x3>X<*>El,F2.F3.F<t,0a(«),APP. 

• OS(«),RSPaCF. 10 1 (6),KC0UNT,NCAL(2), 102(0 ),KOUNT, 103(B). 

•JCOTO, I8PaCE{2) 

dimension  k(NI),S(N1),0F(N) ),0(N2,,A(NJ,nj), IC(NI),SC*L(N1),C(N0) 

C routine  Tn  SOLVE  ONE-OIMenSIONAL  SEARCH  IN  UNCONSTRa INtO 

C MINlHIlATioN  USING  2-POInT  QUADRATIC  INTERPOLATION,  i-POlNT 

C C'lBIc  interpolation  *no  ««P0INT  cubic  INTERPOLATION, 

C BT  6.  N.  vanOERPLAATS  APRIL,  1472. 

c nasa-ames  research  center,  moffett  field,  calif, 
c alp  s proposed  hove  Parameter, 

c Slope  » Initial  function  slope  * s-transpose  times  of, 
c Slope  must  «e  negative, 

c OBJ  ■ initial  function  Value. 

2ro«o. 

IF  (JGUTO'.eO.O)  go  to  10 

GO  To  (SO  Sn, 110,140, ISO, 220, 270),  JGOTO 


C initial  information  (ALPHAsO) 

c 

10  IF  (SLOPE'.lT.O.)  go  to  20 

ALP«0, 
return 

20  continue 

IF  (IPRINf.GT.#)  HRITE  (6,560) 

FFFsOBJ 

API*0. 

Also, 

FlsOBJ 

A2SALP 

A3s0. 

F3sO, 

APsA2 

KOUNTsO 

c 

C MOVE  A distance  AP*S  and  upoatf  function  value 


30 

Continue 

K0UNTsK0U«,t«1 

DO  40  1st  mnv 

40 

x(i>sx(n,AP*s(i) 

IF  (lPRIN^,cT.a)  PRITE 

(6,370) 

AP 

IF  (lPRINT.eT.4)  WRITE 
NCAL( 1 )sNr AL( 1 ) ♦! 
JCOTOsl 

(6.380) 

(X(l),Isl,NOV) 

return 

10 

20 

30 

40 

so 

60 

70 

BO 

90 

100 

no 

120 

130 

140 

ISO 

160 

170 

160 

190 

200 

210 

220 

230 

240 

2S0 

260 

270 

280 

290 

300 

310 

320 

330 

340 

3S0 

360 

370 

380 

390 

400 

410 

420 

430 

440 

4S0 

460 

470 

4B0 

490 

SOO 


1 


J 


! J 


; U 


I i 


a 


! ? 

i ^ 


* . • ■ ? 


coNTiNue 

F2»0B4 

IF  (IP»»INt.gT,«)  “BITE  C6>390)  Fi 
tF  (FE.LT'Ft)  GO  TO  120 


CHECK  FOR  ILL'COHDITIONING 


IF  (FOUNT  gT.S)  go  to  »0 
FFm2..*(»S;rn 
IF  (F2,LT'fF)  CO  TO  «0 
FFs5.*A8S/F1 ) 

IF  {F2.LT'fF)  go  TO  60 

A2«.5*A2 

*LP»*2 
GO  TO  30 
FJ«F2 
*3mi2 
*2s.S*A2 


update  design  vector  ANO  FUNCTION  VALUE 


APsA2.aLP 

*LP»A2 

00  70  I«1  ndv 
X(l)»V(I)fAP*S(l ) 

IF  (IPRINj,r,T.4)  HRITE  (6,370)  A2 
IF  (IPRINt.gT.A)  -rite  (6, ISO)  ( * ( I ) , Ii 1 , NOV) 
NCAL(I )aNrAL(t )♦! 

JGOTOa2 

return 

continue 

F2»0RJ 

IF  (IPRINt.gT.#)  NRTTE  (6,100)  F2 
PROCEED  Tn  CUBIC  INTERPOLATION, 

60  TO  160 

continue 


2-point  ouauRattc  interpolation 


Call  CNHNqa  (n,*PP,^»0,Al,Fi,SL0PE,A2,F2,2R0,ZR0,2R0,2RU: 

IF  (APP.Lt.zR0.0R.APP,GT.A2)  go  to  120 

F3*F2 

A)«A2 

A2SAPP 


SUBROuTiNp  CNNN03 


SEPT,  77 


UPDATE  DESIGN  VECTOR  ANQ  FUNCTION  VALUE 


1000 


M 

* 

fl 

■ 

' 

} • 

% 

) 

» ; 

i 

1 ’« 

! 

SUBRoUTInf  CNMNOS 

SEPT,  77 

1 

c 

• 

\ 

*P««2>ALP 

1020 

1 

*LP«*2 

1030 

■ 

00  too  t>T,K|OV 

1040 

1 

too 

lOSO 

IP  (IPRINT.6T,<i5  «(H!Te  (6,370)  *2 

1060 

IP  (IPHIMt.CT.O)  WHItF  (6,3S0)  (X(l),r>t,NOV) 

1070 

; 

Nc*L(n**‘r*L(n*i 

• 1000 

J60ro>3 

1090 

t 

i 

RETURN 

1100 

1 

no 

continue 

1110 

1 

^ 1 

P2«0BJ 

1120 

1 

IP  (IPRtNT.eT.R)  write  (6,100)  P2 

1130 

GO  TO  ISO 

1140 

120 

*3a2.*A2 

IISO 

c 

t 4 

c 

UPOATC  design  vector  and  function  value 

ii  TO 

c 

- 

ApsAS-ALP 

1190 

ALP»A5 

1200 

00  ISO  I«i,nOV 

1210 

t 

130 

x(i)sx(i);*p*s(i} 

1220 

f , 

IP  (IPRINT.GT.fJ)  WHITE  (6,370)  AS 

1210 

t 

IP  (IPHINt.gT.o)  NHIIE  (6.180)  (X{I),I»1,N0V) 

1240 

NCAL(t)»Ni;*L(n*l 

12S0 

; • 

JGOTOaa 

1260 

return 

1270 

1«0 

continue 

1260 

PlaOBJ 

1290 

" * 

IP  (IPRINV.gT.O)  white  (6,390)  F3 

1300 

r 

ISO 

CONTINUE 

1310 

IP  (P3.LT>j)  GO  TO  190 

1320 

160 

CONTINUE 

1310 

c 

c 

13S0 

c 

Has 

1370 

CALL  CNMNfta  (II,APP,2RO,A1,F1,SLOPE,A?,F2,AS,FS,ZHO,ZRO) 

1380 

’ 

IF  (APP.Lt.ZHO.OR.APP.CT.AS)  GO  TO  190 

1390 

i 

1 

c 

1 

c 

UPDATE  OErtGN  vector  AND  FUNCTION  VALUE. 

ioio 

1 

APiaapp 

laSO 

1 

APaAPPaALp 

1440 

1 

ALPaAPP 

1458 

00  170  laJ.MOV 

1460 

170 

X(l)BX(I)f«P*S(I) 

1470 

IP  (IPRINt.cT.O)  "RITF  (6.170)  ALP 

1480 

i : 

IP  (1PRINt.cT.«)  write  (6,380)  (X( I ) , lat , NOV ) 

1490 

1 1 

• 

MCAL{1  )aNf*Ln  )♦! 

ISOO 

1 

\ 

i 

1 

i 

• 

- 

■■  i 

i 

1 - 

X 

■•r 

i. 

1 

156 

4 

1 

. 

b 

SUBROUTINE  CNMN03 


SCRT,  77 


f 


I < 


T' 


t 

5 


\\ 


I 


I 

I 


I 


I 


J60T0«S 

RETURN 

ISO  continue 

IF  (IPHINr.sT.a)  HRIIF  (6.J90)  OBJ 

c — .................. 

c CHECK  convergence 

c 

AAal ,.APP/t2 

ABSsARSCFe] 

ANSsaRSIOaJ) 

ABaAg; 

IF  (ARJ.Gt.aB)  ABa*Bi 

IF  (A8.LT j .OE-15)  Adal.oC-lS 

ABa(AB2>Aa^)/AB 

IF  (ABS(Ar).LT.I.OE-15,AnO,ABS(AA).LT..001 ) GO  TO  310 

AaaA3 

FaaF3 

A3aAPP 

FSaOdJ 

IF  (A3.GT' A?)  60  TO  230 

A3aA2 

F3aF2 

A2aAPP 

F2a08J 
GO  TO  230 

190  continue 

c 


c ••••*•••*•  4«PoiNT  CUBIC  Interpolation 

200  continue 

Aaa2,*A3 

C UPDATE  OEaIGN  vector  AND  FUNCTION  VALUE. 


APaAfl.ALP 

ALPaAa 

00  2|0  laf.NOV 
210  X(naX(I)^AP«S(I) 

IF  (IPRiNT.r.T.a)  NRITE  (6.370)  ALP 

IF  (IPRINt.cI.R)  xRITE  (6.380)  ( X { I ) , la t , NOV) 

NCAL(l)aNrAL(l)*l 

JGOTOaO 

RETURN 

220  continue 
FaaOBJ 

IF  (IPHIN^,cT.4)  NRITE  (6,590)  F« 

IF  (Fa.GT'.fj)  GO  TO  230 

A|aA2 

F|aF2 

A2aA3 

F2aF3 

A3aAa 


157 


ISIO 
1520 
1530 
1540 
1550 
ISoO 
1570 
15B0 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1 770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 


SUBRouriNf  CNmNO}  SCPT,  77 

rjaP*  2010 

60  TO  200  2020 

2S0  continue  2030 

lla«  20«0 

Call  CNMNaa  (Il>APP>A].At«FI>SL0PE«A2,F2,A3,F3,A«>Fa)  20S0 

IF  (APP.GT.At>  GO  TO  250  20»0 

APsAt.ALP  2070 

*LP«A|  2080 

OBJsFl  2090 

00  2ao  t>T,NOV  2100 

2«0  X(I)aX(I);AP*S(t)  2110 

60  To  200  2120 

250  continue  2130 

c 2140 

C UPDATE  design  VECTOP  ANO  FUNCTION  VALUE  2150 

C 2180 

APsAFP.ALa  2170 

ALPaAPP  2180 

DO  260  laT.NOV  2190 

260  X(I)sX(I);an*S(I}  2200 

IF  tlPHlNx.cT.O)  -RITE  (6»i70)  ALP  2210 

IF  (IPRINt.cT.4)  -RITE  (6.380)  < X ( I ) , I»1 , NOV)  2220 

RCAL(n*NrAL(l)*l  2230 

JGOTObT  2240 

PETURN  2250 

270  CONTINUE  2260 

IF  (IPRINi.(jT.4)  WRITE  (6.390)  OBJ  2270 

280  continue  2280 

C 2290 

C CHECK  FOR  ILL-CUNDIHONING  2300 

C ..................................  2510 

IF  (08J.CT.F2.0R.0eJ,GT.F3)  CO  TO  290  2320 

IF  (OBJ.Lf.F1)  GU  to  330  2330 

APaAl.ALP  2340 

ALPaAt  2350 

OBJBFI  2360 

GO  TO  310  2370 

290  continue  2380 

IF  (F2,LT',f3)  go  TO  300  2390 

OBJaF3  2400 

AP«A3-ALP  2410 

ALP»A3  2420 

GO  TO  310  2430 

300  0njaF2  2440 

APaA2.ALP  2450 

ALPaA2  2460 

310  CONTINUE  2470 

C 2480 

C UPDATE  DESIGN  VECTOR  2490 


1S8 


F 


320 

330 

C 

C 

C 


340 


SSO 


SUBRoUTiNr  CNMN03 

00  320  1*7, MOV 

x(nsx(i)*4P*s(n 

continue 


SEPT.  77 


CHECK  FOR  MUtTIPLF  MINIM* 


IF  (obj.Lf.fff)  go  to  5S0 
initial  Function  is  minihum, 

00  3ao  I=i,NOV 
X(I)*X(I).*UP.S(I) 

*LP»0. 

09J«FFF 

continue 

JGOTOsO 

retuhn 


2S10 

2S20 

2S30 

2S40 

2SS0 

2560 

2570 

2560 

2500 

2600 

2610 

2620 

2630 

26M0 

2650 


c 

c 

formats 

2660 

2670 

^hMO 

c 

2690 

360 

format 

(/////5X,60H*  * • UNCONSTHaINEO  ONE'OIMENSiONAL  search  info 

2700 

IHMATION 

• • •) 

2710 

\ 

370 

format 

(/5X,7mALPHA  ■,E1o,5/5X,8HX-VECTOR) 

2720 

300  • 

format 

(Sx,6tl3,5) 

2730 

390 

format 

(/SX.ShOBJ  »,tl4.5) 

2790 

End 

2750 

f 

{ 

f 

1 

SUBffOUTINr  c'^MNOa 


5CPT,  77 


SUBPQUTlNr  c^MNoa  (1 1 » X8aR>EPS> xt « V i < SLOPE* X2» Ya« Xi. V3»Xa,y4) 
POUTINL  To  pInO  first  XBaR.GC.EPS  CORRESPO.iOING  TO  A MINIMUM 
Or  * ONg-nlMeNSlONAL  RgAt  JUNCTION  BT  POLTNOMIeL  [NTeMPOLATION, 

8Y  G,  N.  vANOERPCAATS  APRIL,  IRT2. 

NaSA.aMES  research  center,  MOPFETT  field,  calif, 

n s calculation  control. 

It  ?.P01NT  auAORATlC  interpolation,  given  xt,  Tl,  SLOPE, 
x2  ANO  Y2, 

21  1-POINT  quadratic  interpolation,  given  X|,  VJ,  X2,  v2, 
xs  and  r3, 

3«  3-poimt  cubic  Interpolation,  given  xi,  yj,  slope,  ti,  y2, 
Xj  AnO  YJ, 

«»  a. point  cubic  Interpolation,  given  xi,  yj,  x2,  y2,  xj, 

Y5,  X«  and  YO, 

EPS  HAY  Br  negative. 

IF  Required  minimum  on  y does  not  exits,  oh  the  function  is 
ILL^CONOItiONEO,  XbaR  « ERS«1.0  mill  be  HETIiHNEO  as  an  error 
indicator*. 

IF  OFSIREq  interpolation  is  ILL-CONOITIONEO,  a loner  OkOER 
interpolation,  CONSISTaNT  wIIh  input  oaTa,  mill  be  attempted, 

AND  II  WI|\  BE  CHANGED  ACCORDINGLY. 

X8AHIsEPS:|. 

XSARxXBARt 

X213X2-X1 

IF  (ASSlXptl.LT. 1,06-20)  RETURN 
NSLOPaMOOf ir,2) 

60  To  (10.20,40, SO),  II 
CONTINUE 

list;  2-POINT  quadratic  interpolation 

llsl 

DXSXI-X2 

IF  (A8SrPx).LT.I,0E-20)  RETURN 

AAs(SL0PEl(Y2-Yn/0X)/0X 

IF  (AA.LT.i.OE-20)  RETURN 

BflsSLOPE-?.*AA*Xl 

XBAR3«,s*nn/AA 

IF  (XBAR. I r.EPS)  XSaRxXBaRI 

return 

continue 

II*2S  5-POINT  quadratic  interpoi  ATiON 

ii«a 

X21SX2-XI 
XSt»Xl-X J 
X32SX3-X2 
UQsX2i*X3t*x32 


i 

( 


160 


SUBfiOuTlNp  CNMN04 

ir  <*B8(ao).LT.».0E»20)  return 

AAb(V1*X39.v2*X5UV3*X21  )/QO 

IF  (*X,LT'.t.0E-20)  CO  TO  30 

SB>(Y2«V1)/x2|«AA*(XI«x2) 

XBAR>..S*qn/AA 

IF  (XBAR^I T.EPS)  XBAHsXOaRI 

return 

continue 

IF  (NSLOP* eo.o)  return 

Co  to  10 

continue 


SEPT,  77 


n«5l  3.POINT  CUBIC  interpolation 


ll«s 

X21»X2-XI 

X31«X3«X1 

X32*X3-X2 

UOaX2t*X3T*x32 

IF  (AnS(Uo).LT.l ,0E-20)  RETURN 
Xtl*Xl«Xl 

ONOMxx2*X>«x3l-XU*X32-XS*X3«X2l 
IF  (AHS(OnON).LT.I.OE-20)  GU  TO  2o 

AA«r(X31»x3l •(^2-Tn-*21*X2l *(73-71 ))/(X31*X21)-SU0PE*X32)/0N0H 

IF  (ABS(A«) .LT. 1 .0E>20)  CO  TO  20 

BBa( (Y2-7f ,/X2t.SLaPE.AA,(A2*X2*X|*X2.2,*Xl l))/X2t 

CCaSL0PE-x.»AA»xn-2.*B««Xl 

BACaBB*BB^3.*AA*CC 

IF  (BAC.Lf.O.)  GO  TO  20 

BACsSORT(naC) 

XBARa(BAC;HR)/(3.*AA) 

IF  (XBAH.i T.EPS)  XBARsEPS 

return 

continue 


IIa«:  a-POINT  CUBIC  INTERPOLATION 


X21»X2-X1 

X3iaX5-Xl 

X4|axa-Xl 

X32«X3-X2 

X42aX4-X2 

XI  |ax|*Xl 

X22ax2*X2 

X33aXS*X3 

X44aX4*X4 

XlttaxuXH 

X222ax2*x >2 

028X3I*x2[,x32 

IF  (ABS(0?^.LT,I.OE-30}  return 


SUBROUTINE  CNMNOa 


SEPT.  77 


8t»xni*X32-*P22**Jl»X3*x5J*X2l 
U4BX1 I I*xap.x222*xai^x4*xaa*x2i 
Q54X4t*X2i*x42 
DNOMaQ2*Qa-nl*US 

IF  (*BS(ONnM).LT.1.0E-30)  GO  TO  60 
0J«Y3»X2l-r2*x5HTl«x?2 
06aY4*X2llY2*xat«vt •X42 
AAB((]2*Qb;n3*OS)/UN0N 
BBa(O3«OU*A)/02 

CC>(Y2«YtiA4*(X222-XlI l))/X2t*BM*(Xl«X2) 
H4C>SH*eBif . ■AA*CC 

IF  <ABS(AA>.LT,t,0e-20.n«,Q*C,LT,0.)  GO  TO  60 
BAC>SORT(baC) 

XBARs(BAC.An)/(3.*AA) 

IF  (X8AR.it. EPS)  XBAHaXHARI 

return 

CONTINUE 

IF  (NSLOP'.fO.I)  go  to  40 

GO  TO  20 

END 


I 


1010 

1020 

1030 

1040 

lOSO 

1060 

1070 

lOBO 

1000 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1160 

1100 

1200 


vlt 


SUBROUTINf  cRRROS 


SCPT,  77 


SUBROuTiRr  CRR'^OS  (NVC»SLOPE,OF,G,ISC, IC, A,s«C«Msl>R>Nl,N2,N},Na,N 

15) 

COhMON  /CigMNl/  tPRlRT,NOV,lTH«X,NCON,NSIoe« ICROIR,RSCAt<NFOC,FOCH, 
lF0CRH,cT,rT*«lN»C7L»CTLMlN*  IHE T* ,Ph1  » R*C/0ELFUN»0*l)FUN»LlNOeJ»  I TRm, 
21TER,tNFOr.,  IGOTO,  Info, OBJ 

dimension  OP(Rt).G(N<*),ISC(N2),IC(N3),A(N3>Nt),S(Nl),C(Na)<M$UN5) 
1>8(N},n3) 

ROUIiNE  To  solve  direction  finding  PRObLEH  in  modified  method  of 
FE*SIBLE  oiRECTIONS. 

DY  G.  N.  vanOERPI-A*T5  may,  1972. 

NASA. AMES  reSEAHCH  center,  MOFFETT  FIELD,  CALIF. 

NORM  OF  S VECTOR  USED  MERE  IS  S-TRANSPOSE  TIMES  S.LE.t. 

IF  NVC  » n FIND  direction  BY  ZOUTeNOIJK'S  METHOD,  OTmeHkISE 
FIND  MOoIfieO  direction, 

normalize  gradients,  calculate  IheTA'S  ANo  determine  NVC  ••• 

NOVl«NOV+( 

N0V2sN0V+r 

NAClxNACAf 

NVCaO 

THMAXsO. 

CTASABSICt) 

CTlsl./CTi 

CTAHsABSIetmIN) 

CTJ»sABS(Cti  ) 

CT2»1./CT(, 

CTBMsAHS(rTLMIR) 

*tsl. 

DO  «0  I=t,NAC 
CALCULATE  ThETA 
NCIsICd) 

NCJ»I 

IF  (NCI.Lf.NCON)  NCJ»lSC(Ncn 

ozGiNcn 

CTO«CTl 

CTC*CTAM 

IF  (NCJ.Lf.O)  go  TO  to 

CTCSCTBM 

CT0SCT2 

IF  (Ct.GT’.cTC)  NVCsNVC  + 1 
THT«0, 

CG»1 .YCTO.ct 

IF  (NCJ.Eo.O.OR.Ct .GT.CTC)  THTsTheTA*GG»CG 
IF  (MCJ. Gt.O. AND, Ct .GT.CTC)  THT sThT-J, .THETA 
IF  (THT.Gt.sO.)  THTxSO, 

IF  (THT.Ct.TMMAX)  THMAX«THT 
*(I»NOVt )sThT 

normalize  gradients  of  constraints 


SUBROlITtNf  cNHNOS 


Se»»T.  77 


I 


c Si  0 

*(I»N0V2),1.  S20 

IF  (NCI.Gt.mCON)  go  to  ao  S30 

*1*0,  5«o 

00  20  J»l.NOV  sso 

*t»*lt*(I,j)*«2  S60 

20  CONTINUE  570 

IF  (At  .LT'  i.OE-20)  *i*l,0E-?0  560 

*lsSORT(*n  S90 

*(I»N0V2)s*t  *0® 

*1*1. /At  610 

1)0  30  Jsl.NOV  620 

30  *(I,J)s*l,*{I,J)  630 

ao  continue  640 

C 650 

C NOpM/iLtZE  gradient  of  OBJECTIVE  FUNCTION  aNO  STORE  IN  NAC>1  600 

C Ron  of  a 670 

C 660 

*1*0,  690 

00  50  Ixt.NOV  700 

*t**t»0F(T)**2  710 

50  continue  720 

IF  (*t.LT;i,0E-20)  *l*t.0E-20  730 

Als$0RT(At)  740 

*1*1. /At  750 

00  60  1=1, NOV  760 

60  A(NACl>I)sit*OF(I)  770 

C BttlLP  C VICTOR.  760 

IF  (NVC.Gt.O)  go  to  bo  790 

C BOO 

C BUILD  C FOR  CLASSICAL  METHOD  810 

C B20 

NOB'NACl  830 

*(NDB,NDV^,*1.  840 

DO  70  1=1. noB  850 

70  C(I)s«A(I.MOVn  860 

GO  TO  no  B70 

60  continue  860 

C 890 

C BUILD  C FOR  MODIFIED  METHOD  ROO 

c 910 

NOBsNAC  R20 

*(N*Cl*NOvn=-PHl  930 

c .........1..... 940 

C SCAie  Theta’S  so  That  HAXIMIIH  theta  is  unity  950 

C 9»0 

IF(ThmaX, gT.O, 00001 1 THM*X»1 ./THM*X  970 

Do  90  1*1, noB  R»0 

MCI«IC(I)  RRO 

Cl*CTA  1000 


T 

r 

i 

I i 

: I 

I 


I 


I 


I 

i 


I 


SUHRntITiNP  CNhNOS  sept,  77 

IF  (lSC(Nri>,oT.O)  C»*CT8  1010 

A(I,NOVt)«A(I,NOVl)*THM*X  1020 

90  CONTINUE  lOiO 

00  100  Ixf.NOB  1090 

C(I)x0..  lOSO 

00  loo  Jsi.NOVl  lOOO 

100  C(I)sC(1),A(I,J)**(NAC1,J)  1070 

110  CONTINUE  1000 

c 1 090 

C SUILO  B HATRIX  IlOO 

c 1110 

00  120  isi.Non  1120 

00  120  Jsf.NOB  1130 

B(I,J)»0.  1190 

00  120  Ksj.mOvl  IISO 

120  B(I,J)a8(T,J).*(I,K)*A(J,K)  1160 

c 1170 

C SOLVE  SPECIAL  L.  P,  PROBLEH  ' llbO 

c 1190 

CALL  CNMNja  (N0e,NfcR,C,MSt,B,Ni,N«,N5)  1200 

IF  (IPRINT.eT.l.ANO.NeH.GT.O)  nRITE  (6, ISO)  lElO 

C calculate  resulting  direction  vector,  S,  1220 

SLOPEsO,  1230 

c i2ao 

c uSASLt'PEASiBLE  DIRECTION  1250 

c 1260 

00  140  IsT.nOV  1270 

SlsO,  1280 

IF  (MVC.Gt.O)  Sls.A(NACl , I)  1290 

00  130  Js^.nOB  1300 

130  Sl»St.A(J,i)*C(J)  1310 

SLOPEsSLOpe>St*OF(I)  1320 

140  SCDsSl  1330 

S(NOvn*i'.  1340 

IF  (NVC.Ct.O)  S(N0v1 )».A(NAC1 ,N0V1 ) 1350 

DO  150  JS),nOR  1360 

150  S(N0V1 )sS;nOV1 ).A(J,NpVl )«C( J)  1370 

C .........1....................................................—..  1380 

C NORHALIZE  S to  max  ABS  of  unity  1390 

c 1 4C0 

SlsO,  1910 

00  160  IxJjNOV  1920 

AtsAHS(S(r)1  1^30 

IP  (Al.CT'.siJ  SlxAl  1440 

160  continue  1950 

IF  (81.LT'.i,0C-l0)  81al,0E-10  I960 

Slxl./St  1970 

00  170  I*i,N0V  1980 

170  S(nxsi*Srn 

Slope  xsuslope  13oo 


t: 


3 


165 


SUBROUTIKr  CNHN05 


9(NOVl)aS?*S(NOVl) 

Return 


Format  (//sx.rah*  * direction  finding  process  oio  not  converce/sx 
29M»  • S-vECTOR  may  not  be  VALID) 


1 


SUBROUTINf  CMMN06 


SEPT,  77 


SUBROUTINf  cRP**Ob  (X,DF,G> lSC>S#Gi ,62, VLB, VUB,SC*L>Rt«N2) 

COMMON  /CnmnI/  IPRINT,N0V, ITM*x,NCON,NSIDe,ICNOIR,NSCAL,NFOG,FOCM, 
lFOCHM,CT,rTMlN,CTL,ClLMlN,THETA,PHl»N*C»0ELFUN,OAeFUN,LINOBJ,ITRM, 

2ITE», INFOc, IGOTO, Info, OBJ 

COMMON  /CONSAV/Ol (Jb) ,CU,CTAM,CrHM,D2,SLOPE,OT(S),Xl, 
20a,ALP,D5f?),A2,A5,A«,06,F2,FS,F«,cvi,cV2,Cvi,CVtt,07,ALPCA,A 
JLPFES,  ALP|  N,ALP*«I'''«  ALPNC,ALPSAV,*{.MSlD,A(.PrOT,»SP4CE/I01  (7), 
*NCAL(2),Ir»?fi),NVC,I0J,IC0UNT, 

SIGOOOl, IGnoO^, IGOOoj, IGOona, IBEST, ni,NLNC, JGOTO, ISPACE(2) 
DtMENSION  X(N| )>DF(N1),G(N2), tSC(N2),S(Ni ),G1 (N2),G2(N2),VLa(NlJ,v 

IUB(NJ ),SC*l(N1 ) 

routine  To  solve  ONE-OIMCNSIONAL  SEARCH  PROBLEM  FOR  CONSTRAINED 
function  minimization. 

BY  G,  N,  vanOERPLAATS  AUG.,  I97a. 

N*SA-AMES  PfSEARCM  center,  MOFFETT  FIELD,  CALIF. 

OBJ  a initial  and  final  FUNCTION  VALUE. 

ALP  a MOVp  parameter. 

SLOPE  a Initial  slope. 

ALPSIf)  a move  to  side  CONSTRAINT. 

ALPFES  a move  TO  FEASIBLE  REGION, 

ALPNC  a MnvF  TO  nEm  NON«lIN£AR  CONSTRAINT. 

ALPLN  a MnvF  TO  LINEAR  CONSTRAINT, 

ALPCA  a Move  to  re-encounter  currently  active  constraint, 

ALPMIN  a move  TO  minimize  FUNCTION, 

ALPTOT  a total  HOVE  PARAMETER. 

ZROao. 

IF  (jgoto'.eq.o)  go  to  to 

SO  TO  (Itto, J10,520),  JGOTO 
IF  (IPRINt.gE.5)  write  (b,730) 

ALPSavpALp 

ICOUNTaO 

ALPTOTaO, 

tolerances. 

CTAHaABSIrTMlN) 

CTBMxABStrTLHIN) 

PROPOSEO  move. 

CONTINUE 

••A**  berin  search  or  Impose  side  constraint  modification  **•*• 

A2aA(.PSAV 
ICOUNTalCnilNTAl 
ALPSinai.nEt20 
initial  A| pmA  ano  OBJ. 

*LP«0. 

FtaOBJ 

KSlOaO 

IF  (NSIOE’eO.O)  CO  TO  70 


SUBROUTINr  CMMN06 


8CRT,  77 


FIND  MOVE  TO  SIDE  CONSTRAINT  AND  INSURE  AGAI-'ST  VIOLATION  OF 

Sloe  constraints 

00  60  Isl.NOV 
Sl»S(I) 

IF  (ABS(ST).GT,1.0L-aO)  60  TO  SO 

calculate  alpha  to  MINIMIZE  FUNCTION 

II»l"” 

IF  (A2.CT' aS.aNO.(I600D2.EQ.u.ANO.IBEST.E0.2))  IIsZ 

CALL  CNMNrtfl  (II,ALPMIN,ZH0,ZH0,Fl,SL0PE,AZ,F2,Aj,Fi,ZR0,ZR0) 

continue 

y PRUPOSEO  MOVE 

HOVE  AT  LfaST  enough  to  OVERCOME  CONSTRAINT  VIOLATIONS, 

aosalpfes 

MOVE  TO  MiNTHiZE  function, 

IF  (ALPMIn.GT.A4)  A4»ALPmIN 
IF  Aa.LE.n,  set  A4  • ALPSIO, 

IF  (Afl.LE'.o.)  A4»ALPS10 

LIMIT  MOVp  TO  NFM  constraint  ENCOUNTER, 

IF  (Aa.GT* aLRLN)  A4»ALPLN 
If  (Aa.CT.ALPNC)  A4»ALPNc 

limit  MOVr  TO  RE-ENCUUNTeR  CURRENTLY  ACTIVE  CONSTRAINT, 

IF  (AO.GT.alPCA)  AasALPCA 
limit  AU  TO  5.*AI, 

IF  (A4.GT,rS,*A3))  A4«5,*A3 
UPDATE  design. 

IF  (IBEST^nE.I.OR.NCON.EO.O)  go  to  470 

STORE  CONSTRAINT  ValUFS  IN  G2.  FJ  IS  BEST,  F2  IS  NOT, 

DO  460  ISf ,nCON 
G2(I}sG(I) 

CONTINUE 

continue 

IF  AasA}  and  IGOOOlsO  and  IGOOOSai,  SET  A4s.9*A}, 

ALP»A4-A5 

IF  ((IGOOni.EO,0,ANO.IGOoOi.EQ,l).ANO,ABS(ALP).LT,l,OE-20)  A4*,<»*A 

13 

y MOVE  A DISTANCE  A4*S 

ALPaA4-A3 

ALPTOTrALPTOT*ALP 
DO  4ao  lai.NOV 
*(I)«X(1);alP*S<I) 
continue 

IF  (IPRINf.LT. 5)  GO  TO  StO 
MRITE  (6,720) 
write  (6,740)  A4 
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SUBROUTlNr  CNMN06 

IF  (NSC»c1e(1.I))  CO  TO  500 
00  490  1*1, nOV 
C(l)<SC4Lai*X(n 
"UlTt  (6,750)  (C(I),I«1,nOV) 
GO  To  510 

■<I»ITF.  (6,750)  (X(I),I*t,Nl>V) 

continue 


toio 

1020 

1050 

1040 

1050 

1060 

1070 

1000 

1090 

1100 

1110 

1120 

1150 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1250 

1240 

1250 

1260 

1270 

1280 

1290 

1500 

1510 

1520 

1550 

1540 

1550 

1560 

1570 

1500 

1590 

1400 

1410 

14^0 

1450 

1440 

1450 

1460 

1470 

1480 

1490 

1500 


IIPOATE  function  and  constraint  VALUES 


NCAL(  1 )»Npai.(1  )♦! 

JC0T0S5 

return 

Continue 

FasOBJ 

ir  (lPHiNi.r.E.5)  kriic  (6,760)  Fa 
IF  (IPRINt.lT.S.OR.nCON.eO.O)  go  to  550 
NRITE  (6,770) 

NRITE  (6,750)  (G(1),I»1,nC0N) 

continue 

determine  ACCAPTAaiLITY  OF  F4, 

16000430 

CV4«0. 

IF  (NCON.fo.O)  go  to  550 
DO  540  I»t,NCON 
CCrCTAH 

IF  (1SC(I).GT,0)  CC«CT8M 
Cl3C(I).Cp 

IF  (C1.GT,CV4J  CV43C1 

continue 

IF  (CV4.GT.0.)  IG000431 

continue 

4LP4A4 

08J«F4 


determine  oest  design 


GO  TO  (566,610,660),  IBEST 

continue 

CHOOSE  REtmeCN  F)  and  F4, 

IF  (16000?. eg. O.ANO.lGOOoa.EO.O)  GO  TO  570 
IF  (CV1,Ct.CT4)  go  to  710 
GO  TO  580 

continue 

IF  (Fa.LE'.Ft)  CO  TO  710 

continue 

Fl  IS  HESt. 

ALPT0TsAtPT0T-A4 

OBjaFl 

DO  590  I»T,n0V 


c 


1 


I 


SUBHOUTlNp  cNMN0»  Se^T,  77 

x(n«x(i);A«*s(i)  isio 

continue  tS20 

17  (NCON.rO.O)  60  TO  7|0  1«50 

00  600  Iai,NCON  1S«0 

6(1}«6I(1i  1S60 

600  continue  1S60 

60  TO  710  1S70 

610  CONTINUE  tSaO 

C CHOOSE  NEtmfEN  F2  and  Ftt.  1S90 

IF  (ICOOO^.FO.O.XNO.ICUOOtt.EO.O)  CO  TO  620  1600 

IF  (CV2.CT.CVa)  GO  TU  710  1610 

60  TO  630  1620 

620  CONTINUE  1630 

IF  (Fa.UC'.F2)  60  TO  710  1660 

630  continue  16S0 

C F2  is  best.  1660 

0BJBF2  1670 

A2sAa.A2  1600 

XLFT0TsALpTnT.A2  1»90 

DO  640  laj.NOV  1700 

X(I)«X(1).a2*S(I)  1710 

600  continue  1720 

IF  (NCON.po.O)  60  TO  710  1730 

00  6S0  I*i,NCON  1740 

6(I)b62(1)  1760 

650  continue  1760 

60  TO  710  1770 

660  CONTINUE  1700 

C CHOOSE  BEthFEN  F3  AND  FO.  1790 

IF  (leOOO^.EC.O.ANo.lGUOoa.EQ.O)  60  TO  670  IBOO 

IF  (CV3.CT.CVa)  CO  TO  710  1610 

60  To  6S0  1620 

670  continue  1630 

IF  <F4.LE'.F3)  CO  TO  710  1640 

660  continue  1650 

C F3  is  best.  1660 

0BjaF3  1670 

A3aAa-A3  1660 

ALPTUT8AtPTnT«AS  1690 

00  690  raj.NOV  1900 

X(I)aI(l).AT*S(I)  1910 

690  continue  1920 

IF  (NCON.pq.O)  60  TO  710  1930 

00  700  laf.NCON  1940 

6(I)a62(lt  1650 

700  continue  1960 

Tie  CONTINUE  1970 

ACFbalFTOt  1900 

IF  (IFNINT.r.k.5)  ^BITf  (6»T90)  1990 

jeOTOaO  2000 


1 


1 


i 

I 


i 
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c 

SUBRoUfINp  CNMN06 

return 

• 

SEPT,  77 

20t0 

c 

POHMaTS 

2030 

c 

ITh  CONPOmCNT  of  S is  shall,  set  tg 

ZERO. 

20«0 

S(I)«o. 

20SO 

SLOPE«SLOpc.Sl*OF(n 

1 

2060 

GO  TO  60 

2070 

30 

continue 

20S0 

XI«X(I) 

2090 

Sl»l,/SI 

2100 

IF  (SI.GT'.o.)  GO  TO  «0 

2110 

C 

loner  bound. 

2120 

XI2«VLH(Il 

2130 

XI1saRS(Xt2) 

2100 

IF  (XM.Lt.I.)  XIJil, 

21S0 

C 

constraint  value. 

2160 

Gl«(XI2-xt)/xn 

2170 

IF  (GI.GT'.i.oE.o)  go  to  so 

2160 

C 

proposed  move  to  loner  bound. 

2190 

ALPA«(XI2.xn*SI 

2200 

IF  (ALPA.I  T.AlPSIO)  ALPSIDsALPA 

2210 

GO  to  60 

2220 

00 

continue 

2230 

c 

UPPER  bound. 

2240 

X!2SVUH(I) 

22S0 

XI1»ABS(Xt2) 

2260 

IF  Ixn.Li.l.)  Xllx\. 

2270 

c 

constraint  value. 

2260 

6I«{XI-XI?)/XIl 

2290 

IF  (GI.GT‘,.|.oE-6)  go  to  so 

2300 

c 

PROPOSED  move  to  UPPER  BOUND. 

2310 

*LPA»(XI2.xi)«SI 

2320 

IF  (ALPA.i'T.ALPSlO)  ALPSIOxALPA 

2330 

GO  TO  60 

2340 

so 

CONTINUE 

23S0 

c 

move  NILL  violate  side  CONSTRAINT, 

set  S(I)*0. 

2360 

SLOPExSLOpf.Sc I ) *OF ( 1 ) 

2370 

S(I)xO. 

2360 

KS10xKSIO;t 

2390 

60 

continue 

2400 

c 

ALPSIO  IS  UPPEP  BOUND  ON  ALPHA, 

241C 

IF  U2.GT'.alP8I0)  A2XALP5IO 

2420 

70 

c 

continue 

2430 

c 

CHECK  tLL>CONO|TIONING 

24S0 

c 

IF  (KSIO.po.nov.UR.ICOUNT.GT.IO)  go 

TO  no 

2470 

IF  (NVC, Eo.O.ANO, SLOPE, GT.O,)  GO  TO 

710 

2460 

*LPFcS«»t' 

2490 

ALPHINX-I. 

2500 

: I 
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SUBROUTINE  cNNNOb 


8CRT.  77 


*LRLNst.t*tt^SlO  2S10 

ALPNCaALPRiO  25^0 

*LPC««ALP<ttft  2530 

IP  (NCON.ro. Ot  60  TO  90  2540 

C ST0«6  constraint  V*tUES  IN  GJ,  2550 

Do  So  I«l.Nf.ON  2S60 

G|(I)sG(I,  2470 

SO  continue  2500 

90  continue  2590 

c 2600 

C nOVE  a distance  a2*5  2610 

C 2620 

A(,prnT3ALPTnT>A2  2630 

00  loo  I>i.NOV  2640 

A(naX(I);A2*S(I)  2650 

too  continue  2660 

IF  (IPRINT.tT.S)  60  TO  130  2070 

"RITE  (6.740)  A2  2600 

IF  (NSCAL' riT.O)  60  TO  120  2690 

DO  IjO  I«..nOV  2700 

no  G(l)sSlfALii)*X(I}  2710 

. NRITE  (6.750)  (G(I),Ial.NOV)  2720 

60  To  130  2730 

120  "RITE  (6.7^0)  (X(I),1«1.N0V)  2740 

C 2750 

C UPDATE  function  ANO  CONSTRAINT  VALUES  2760 

C 2770 

130  NcaL( 1 )»NrAL( I )♦!  2700 

JGOToal  2790 

return  2000 

140  CONTINUE  2010 

F240BJ  2B20 

IF  (IPRINt.gE.S)  "RITE  (6.760)  F2  2B30 

IF  (1PRINt.lT.5.0R.NCON.EO,0)  60  TO  150  2840 

"RITE  (6.770)  2050 

"RITE  (6.756)  (G(I).1«1.NC0N)  2060 

150  continue  2070 

C 2880 

C infcNTIFT  ACCAPTAOILITY  of  designs  FI  and  F2  2890 

C 2900 

C 16000  4 0 IS  ACCAPTA0LE.  2910 

C CV  s haxImun  constraint  VIOLATION.  2920 

160001*0  2930 

160002*0  2940 

CV1*0.  2950 

CV2*0,  29»0 

NVC1*0  2970 

IF  (NCON.po.O)  60  TO  170  2980 

DO  160  I*i.nC(TN  2990 

CCaCTAN  3000 


I 
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J. 

4^ 


IbO 


170 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


ISO 

c 


1<»0 


c 

c 

c 

200 


c 

c 

c 


SUSHoUTlNf  C^HNOO  sept,  77 

IP  (ISC(I).GT.O)  cc«ctbm 
Cl»Ct  (D-rc 
C2»6(I)-Cr 

IP  (C2.GT'o.)  NVCUNVCJ  + 1 
IP  (Cl.GT  cvn  cvl»ci 
IP  (C2.6T.cv2)  CV2tC2 

continue 

IP  (CVJ.Gt.O.)  tG0001»l 
IP  (CV2.GT.0.)  IG0002S1 

continue 

*LP»»2 

UBJSF2 


IP  P2  VIOi  »TES  PtNER  constraints  THAN  FI  BUT  STILL  HAS  CONSTRAINT 
VIOLATIONS  return 

IP  (NVCl .rT.NVC.*NO,NVCl .GT.O)  GO  TO  710 


Ii^UnTIFY  best  of  DESIGNS  Fl  ANF  F2 

IBEST  corresponds  to  hiNimuh  VALUE  DESIGN. 

IF  CONSTRiTNTS  ARE  VIOLATED,  IBEST  CORRESPONDS  TO  HINIHUM 

constraint  violation, 

IF  (I6000j.EO.O. and. 160002. EQ.O)  GO  TO  ISO 
VIOLATED  CONSTRAINTS.  PICK  MINIMUM  VIOLATION, 
iBESTsl 

IF  (CV1.Gf.CV2)  1BEST*2 
GO  TO  IRO 

continue 

NO  CONSTRiiNT  VIOLATION.  PICK  MINIMUM  F, 
iBESTal 

IF  (F2,LE'.F1)  IBESTS2 

continue 

II*I 


IF  (NCON.fo.O)  go 

TO  230 

* • *** 

2 - POINT  interpolation 

m*o 

in>iiiTi 

ClxGKIIh 

C2>6(I!!) 

IF  (iscdin.E'i.o) 

GU  TO  210 

. 

linear  constraint 

IF  (Cl  .Ct'.i  .OE-S.ANO.C1  .LE.CTSM)  cO  TO  220 
call  CNMNst  (II,ALP,2R0,ZR0,C1,A2,C2,2R0,ZR0) 
IF  (ALP.Lc.O.)  go  to  220 

IP  (CI.GT.cTBM.ANO.ALP.GT.ALPFES)  ALPFESfALP 


1010 

3020 

3030 

3040 

30S0 

3000 

3070 

3oao 

3090 

3100 

311U 

3120 

3130 

3140 

3150 

3190 

3170 

3160 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3290 

32/0 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

5350 

3390 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 
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210 


220 

230 

C 


200 

C 

C 

c 

c 


SUBROUTiNp  CNMNOO 


SEPT.  77 


IF  (Cl.LT* cTU.ANO.ALP.LT.ALPLN)  AlPLN«ALP 

CO  TO  220 

continue 


NON'LINEaR  constraint 


IF  (Cl.ct' I.OC-S.ANO.CI.LE.CTAM)  go  to  220 
call  CNMNot  (n,ALP,ZRO,2RO,Cl,A2,C2,ZBO,ZRO) 

IF  (ALP.Lp.O.)  CO  TO  220 

IP  (Cl.CT,cT*N.*NO.*LP.OT.ALPPES)  ALPPESsALP 
IF  (CI.LT'cT.ANO.ALP.LT.aLPNC)  ALPNCsALP 

continue 

IF  (III.Lt.nCON)  go  to  200 

continue 

IP  (LINOB.i.gT.O, OP, SLOPE. GE.O.)  GO  TO  200 
CALCULATt  ALPN*  to  MINIMIZE  FUNCTION, 

CALL  CNHNoa  {II,ALPMIN,ZR0,ZR0,FI,SL0PE,A2,F2,ZR0,ZR0,ZH0,ZR0) 

Continue 


PROPOSED  MOVE 


250 

260 

C 


MOVE  AT  LpaST  far  ENOUGH  TO  OVERCOME  CONSTRAINT  VIOLATIONS, 
A3«ALPFES 

MOVE  TO  MtntMIZE  function. 

IF  (ALPMIm.gT.A5)  ASsalBmIN 
IF  AS.LE.n,  SET  A3  » ALPSIO, 

IF  (A5.LC.0.)  *3=*LPSI0 

LIMIT  MOVp  TO  NEW  constraint  ENCOUNTER, 

IF  (A3.GT' *lRNC)  A3SALPNC 
IF  (AS.GT^lPLN)  A3»ALPLN 

make  A3  Non-zero. 

IF  {A3.Lt'.i.OE-20)  A3»1,oE-20 

IF  A3«a2»IlPSI0  ANO  F?  is  BEST,  GO  INVOKE  SIDE  CONSTRAINT 
MOOIFICAItON, 

*LPB«l 

ALPAat .-Ai  PSIO/A3 
JBESTaO 

IF  (AHS(A|  PB).LT.1.0E-tO,ANO,ABS(ALPA3.LT,l,OE-lO)  JBESTal 
IF  (JBtST'.EG.t.*MO,lBEST.EG,2)  GO  TO  20 

side  constraint  check  not  satisfied, 

IF  (NCON.po.O)  CO  TO  260 
STORE  constraint  VALUES  IN  G2. 

DO  250  I<i,NCON 

G2(I)s6(It 

continue 

CONTINUE 

IF  A3aA2,  SET  A3a.9.A2. 

IF  (A«S(A|  pR).LT,1 ,0E-10)  A3a,<»*A2 
MOVE  AT  LpaST  .0t*A2. 

IF  (A3,LT'.(.0T«A2))  A3a.0l*A2 


3510 

3520 

3530 

3500 

3550 

3560 

3570 

3560 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3660 

3690 

3700 

3710 

3720 

3750 

3740 

3750 

3760 

3770 

3760 

3790 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3660 

3690 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3960 

3990 

4000 


I ^ 


' I 


I 
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SUBROUTINf  CBHN06 


SEPT,  7T 


f r 


I 

) 


i 


1 


> 


C LIMIT  HOVr  TO  5,**2. 

IF  (*.3.CT.(S.»*2))  *3»S.«*2 
C limit  MOVr  TO  ALPSIO. 

IF  (*J.GT;*lPSIO)  A1»*lPSIO 
C MOVE  A distance  a3*S. 

*LP»A3-A2 

alptotsalptot+*lp 

00  270  I«j,MOV 
A(nsX(I)«ALP*S(I) 

270  CONTINUE 

IF  (IPRINt.lT.5)  CO  TO  300 
MRITE  (6,7A0) 

MRITE  (6, TOO)  *5 
IF  (NSCAL^EO.OJ  go  to  2*0 
DO  280  IS|,nOV 

260  G(t)3SCALn)*)‘n) 

MRITE  (6,tS0)  tC(I),I»l,NOV) 

GO  TO  300 

290  MRITE  (6,750)  (X( I ) , I»I , nDV) 

300  continue 

c 

c UPDATE  FUNCTION  AND  CONSTRAINT  VALUES 

c 

NCAL(I)»Nf*t(l)*J 

JG0T0a2 

RETURN 

310  CONTINUE 

F3xOBJ 

IF  (IPRINt.sE.S)  "RITE  (6,760)  F3 
IF  (IPRINt,LT.5,OR.NCON,EO.O)  GO  TO  320 
mRITE  (6,770) 

NRITE  (6,750)  (G(I),I»I,NC0N) 

320  continue 

c calcolatf  Maximum  constraint  violation  ano  picx  BEST  design 

c — ——————— 

CV3*0, 

IGOOD3SO 

NVClsO 

IF  (NCON.ro.O)  GO  TO  300 
DO  330  Ki.NCON 
CCoCTAM 

IF  (ISC(I).Gl.O)  CCxCTBM 
C|a6(I)«Cr 

IF  (C1.Ct’cv3)  CV3»Cl 
IF  (Cl.CT.rt.)  MVC1«NVCI»1 
330  CONTINUE 

If  (CV3.Gf.O.)  IG0003al 
300  CONTINUE 

C determine  best  DESIGN. 


0010 

0020 

0030 

OOOO 

4050 

0060 

0070 

0080 

0090 

0100 

4110 

4120 

4130 

4140 

4150 

0160 

4170 

0180 

4190 

0200 

4210 

0220 

4230 

4200 

4250 

0260 

0270 

4280 

0290 

4300 

0310 

4320 

0330 

0340 

0350 

0360 

4370 

4380 

0390 

4400 

4410 

4420 

4430 

4040 

4450 

4460 

4470 

4480 

4490 

4500 


I ^ 


9UBR0UTI*>F  CRHN0»  sept.  77 

ir  (IBEST'fo.z)  CO  to  J6o  1510 

C CHOOSE  BETriCEN  FI  AND  Fj.  0520 

IF  (leOOOt.FO.O.ANO.lGOODS.EO.O)  GO  TO  350  «530 

IF  (CV1.Gf.CV3)  IBESTx3  «540 

GO  TO  380  0550 

350  IF  (F3.LE’.F1)  I8ESTB3  O5<»0 

GO  TO  380  0570 

360  CONTimuE  oSbO 

C CHOOSE  between  F2  AND  F3.  0500 

IF  (IGOODP.eO.O.ANo.IGUOoS.EU.O)  go  to  370  0600 

IF  (CV2,Gf.CV3)  18£ST«3  «*'10 

Go  To  380  <»*‘00 

370  IF  {F3.LE'.F?)  IBEST«3  0630 

380  continue  0600 

AI.PSA3  0650 

0BJXF3  0660 

C IF  F3  VlOj  aTES  FfcHfcR  constraints  THAN  Ft  RETURN.  06/0 

IF  (NVCt .1 T.NVC)  go  to  7|0  0660 

C IF  ObJECTtvF  and  all  constraints  are  linear,  return.  0690 

IF  (LINOBi.nE.O.ANO.nlnC.E'I.NCON)  go  to  710  0700 

c IF  AJ  * A| blN  and  F3  is  HOTh  GOOD  ANO  BEST  RETURN.  0710 

ALPB»1  ."A|.RLN/a3  0/20 

IF  ((ABS(alPB).I.T.1.0E>20.ANO.IBEST.EO.3].AnO.(IG0OD3.C0,0))  CO  TO  0730 
1 710  0700 

c IF  A3  > Ai'pslo  ANO  F3  IS  BEST,  GO  INVOKE  SIDE  CONSTRAINT  0750 

C HOOIFICAT^ON.  0760 

ALPAsl  ..A|'psl0/63  0770 

IF  (A8S(A| ba).LT.1.0E-20,ANO,IBEST.EQ,3)  GO  TO  20  0780 

C — 0790 

C ••••••••••  3 • POINT  INTERPOLATION  •*••••*•*  0800 

C .........i...............................................**— • 0810 

ALPNCsALPoin  0820 

*LPCA»ALPoiO  0830 

*LPFES»»r  0800 

ALPH1N«-i'  0850 

IF  (NCON.fq.O)  go  TO  OOO  0860 

111*0  0870 

390  IIlslIlTt  0880 

ClsCKIII^  0890 

C2»G2(11I,  0900 

C3«C(Iin  0910 

IF  (isc(irn.Eu.o)  go  to  ooo  0920 

c ••.......I............. 0930 

C linear  COmSTHaINT,  find  ALPFES  0nL7.  ALPUN  Same  as  BEFURE.  0900 

C «••••. <4950 

IF  (Cl  .LE'.CTBM)  go  to  430  09oO 

list  4970 

C*tL  cNMNfl?  (rl,ALP,ZR0.2R0,C« *03,c3»ZRO,ZRO)  0980 

IF  (ALP.Ct.aLPFES)  ALPFES»ALP  0990 

60  TO  430  5000 
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aoo  continue  5010 

c ........w.. S020 

c NON.LINEaB  constraint  50J0 

C .........I..........................................—.— — 500  0 

llr2  SOSO 

C»Li.  CNMNn7  (II,aLP,ZR0,ZR0,C1,A2,C2,AJ,C3)  5060 

IF  (ALP.l.F.7«n)  GO  TO  aJO  5070 

IF  (Cl.Ce'cT.ANO.Cl.LE.O.)  CO  TO  alO  - 5060 

If  (cJ.gt'ct*m.or.ci.lt.o.)  go  to  ozo  so9o 

C alp  is  minimum  MOVfc,  update  FU«  next  constraint  encounter.  5100 

alo  alpasalp  5110 

Caul  CNPN«7  (lI,ALP,ALPA,ZRO,Cl,A2,C2,Ai,C3)  51Z0 

IF  (ALP.Lt.ALPCA.ANO.ALP.GE.ALPA)  ALPCAsALP  5130 

fcj  TO  «30  51<‘0 

azo  continue  5150 

IF  (ALP,G^.ALPFES,ANO.Cl.GT.CTAM)  ALPFESsaLP  5160 

IF  (ALP.Lt.ALPNC.ANO.CI.LT.O.)  alpncsalp  5170 

430  CONTINUE  5180 

IF  (III.Lt.nCON)  CO  TO  IPO  5190 

440  continue  5Z00 

IF  (LINOB.i  gT.O. or. slope, GT.O.)  go  to  450  5Z10 

c .........  I.. I......... ......... ...... ...... 5ZZ0 

C — — 5Z30 

c szao 

720  format  (/sX.ZSHTMREE-POINT  INTERPOLATION)  5250 

730  format  (/////58Ha  • * CONSTRAINED  ONE. DIMENSIONAL  SEARCH  INFORMATI  5Z60 

IOn  * • •)  5270 

740  format  (/>5X, ISHPROPOSED  0ESIGN/5X, THALPHA  s, E 1 2,5/5* , 8HX.VEC TOR ) 5280 

750  FORMAT  (1*,8E12.‘*)  5290 

760  format  (/fx.SHOBJ  s,El3.S)  5300 

770  Format  (/^x, ithconstraint  values)  53lo 

780  format  (/ex, 23HTMO. point  INTERPOLATION)  5320 

790  format  (/sX,35M*  » • ENO  OF  QNE-OIMENSIONAL  SEARCH)  5330 

END  5340 
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subroutine  (II,X8*R,EPS,Xi,n,X2,ra,XJ,¥J) 

routine  Tfl  riNO  FIRST  X3aR.6E.ERS  CORRESPONDING  TO  A REAL  ZCRO 

OR  A ONE-nfMENSlONAi.  FUNCTION  bV  POtTNOHlEU  INTERPOLATION, 

ST  0.  N.  vanOeRRLAATS  APRlLf  1972. 

NASA-aNCS  research  center,  MOFFETT  FIELD,  CALIF, 

11  » calciilation  control. 

11  p-POINT  LINEAR  interpolation,  given  Xl,  VI,  X2  AND  V2. 
21  X'POiNT  quadratic  interpolation.  Given  xt,  VI,  X2,  y2, 
yj  and  Y5. 

EPS  may  bp  negative. 

IF  REOUIHfo  Zero  On  Y uO£S  not  EXtTS,  or  the  function  is 
ILL-CONOItIONeO,  XbaR  a EPS-1.0  HILL  0E  RETURNED  AS  AN  EH»0» 
INDICATOR'. 

IF  OESIREf)  interpolation  IS  ILL-CONDITIONED,  A LOWER  ORDER 
interpolation,  consi5t*nt  with  input  oaTa*  will  be  attempted  and 
II  WILL  Br  changed  ACCOROINGLV, 

X3ARt»EPS.|. 

XBARsXBAR^ 

JJsO 

X21*X2-XI 

IF  (ARS(X>i).LT.t.uE-20)  RETURN 
IF  (II.EO.2)  go  to  so 


10  ' continue 


II*l!  2-POlNT  LINEAR  interpolation 


list 

yy*yuy2 

IF  (JJ.EO' O.OR.TT.LT.O.)  go  to  20 

interpolate  between  X2  and  X3, 

DV«VS>Y2 

IF  (A3S(0v) .LT, 1 .OE-20)  GO  TO  20 
X0ARsX2TYj,(X2-XI)/OY 
IF  (XBAR, I 7. EPS)  X0AR«X0Afil 
return 

0YaY2»Yl 

interpolate  bETWEEN  XI  AND  X2. 

IF  (A3S(0y)  .LT.l .OE-20)  RETURN 
XHARsXlfYi«(Xt<>X2)/0Y 
IF  (XRaR.i  T.EPS)  XbARsXRARl 
RETURN 

continue 


IIS2<  S-POINT  QUADRATIC  INTERPOLATION 


JJ«t 

X3I«XS-X1 

X32«X3-X2 

00aX2l*Xi?*x32 
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IF  (Aes(Oi)).LT.).oE-^o>  return 

*A«(Vl*V}7.Y2*XS|tY3«X21 )/no 
IF  (ARS(Ai).LT.1.0E-20)  GO  TO  tO 
BBa(Y2>Tl Y/x2l^XX*(Xt«X2- 
CCaY|.xt*(AA*XlAHB) 

BACaHB*Htf.4 , tAAtCC 
IF  (bAC.Lr.O.)  GO  TO  10 
BACaSORTtRiC) 

AAa.S/AA 

XBARsAA*(RAC-Be) 

Xa2*-AA*(n«CtHB) 

IF  (XbaR.I  T.EPS)  XB*ka*82 
IF  (XB2.Lt.XHaR, AN0.XB2.CT.EPS)  XBARaXB2 
IF  (XBAR., t.EPS)  XBAHaXBARl 

return 

End 


I i 
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1 

I 

i 


SUBPOUTINp  C^HNoa  (NOB>NcR,Cf MSI >a«N3,Na,NS)  10 

DIhENSION  crNa>>'iSt(NS),B(N},N})  20 

c HOIITinE  Tn  SOLVE  SPECIAL  LINEAR  PROBLEM  FOR  IMPOSING  S«THAnSPOSE  iO 

c times  S.Le.I  BOUNoS  in  The  modified  method  of  feasible  directions,  <tO 

C BY  G.  N.  vaNOEPPLAaTS  APRIL*  1972.  SO 

C N4SA-AMES  rfSeaRCM  center,  mOFFETT  FIELD,  CALIF.  oO 

c Ref.  *STroc’<'RaL  optimization  by  methods  of  feasible  directions*.  70 

C G.  N,  VANofRPLAATS  and  F,  MOSES,  JOURNAL  OF  COMPUTERS  OO 

C and  structures,  VOL  3,  PP  739-755,  1973,  90 

C FORM  OF  L'  P,  is  BXsC  where  1ST  moB  COMPONENTS  OF  X CONTAIN  VECTOR  luO 

C U AND  last  nOB  components  CONTAIN  VECTOR  V.  CONSTRAINTS  ARE  110 

C U.GE.O,  V'.gE.O,  and  U-THaNSPOSE  times  V s 0.  120 

C NER  a error  Flag.  if  ner.ne.o  on  return,  process  has  not  130 

C converged  in  5*N0H  iterations,  loo 

c VECIOR  MS{  identifies  The  set  of  basic  variables,  150 

C .—....-1....— 1 BO 

c Choose  initial  basic  variables  as  v,  and  initialize  vector  msi  i7o 

c lao 

NER»I  190 

M232.N0B  200 

C CALCULATE  cBMIN  and  EPS  AND  INITIALIZE  MSl.  210 

EPS«-1.0E;io  zzn 

CBMiNsO.  230 

00  10  Isl.NOB  240 

BIsfl(I,n  250 

CBMAXSO,  290 

IF  (Hl.LT* .1 .OE-6)  C0HAXsC(I)/8I  270 

IF  (BI.GT  fPS)  EPSaBI  2B0 

IF  (CBMAX  gT.CBMIN)  CBMInsCBMAX  290 

10  MS1(I)*0  ■ 300 

EPSs.OOOlfEPS  310 

IF  (EPS,Lt.-1.0E-10J  EPSs-l.OE-10  320 

IF  (EPS, Gt,-. 0001 ) EPS*-, 0001  330 

CBMINsCBMtnaI .OE-6  340 

IF  (CBMIN'^LT,  I .OE-10)  CBMlNsl  ,0E-10  350 

iTERlaO  360 

NHAXaSwNOn  S70 

C 3B0 

C •••*•*•**.  begin  new  iteration  ***a******  390 

C 400 

20  1TERI*ITEri»1  410 

IF  (ITERI'.cT.NMaX)  return  420 

C find  max,  crDVPd.I)  for  Ial,NDB.  430 

CBMAXa.9*rBMlN  440 

ICHKaO  450 

DO  30  I«l.NOB  460 

ClaC(l)  470 

aiaB(I,t)  400 

IF  (BI,OT'.EPS,OR,Cl,GT,0.)  GO  TO  30  490 

CBaCl/fll  500 


I 


I 

i 


I 

i 


r 


• j 
1 
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IF  IC9.LE'.CBH»X)  CO  TO  So 

ICHKat 

CRMAXaCB 

SO  continue 

IF  (CBMAX' lT.CBMIN)  CO  To  70 
IF  (ICHK.po.O)  GO  TO  70 
C UPDATE  VtrTO«  MSI. 

JJxICHK 

IF  (HSl (Jj) .EQ.O)  JJsICMKfNOB 
KKaJJtNDH 

IF  (FK.CT’.Ha)  K«xJJ«NOB 
MSI (KK)alrHK 
MSI(JJ)=0 
c 

c PIVOI  OF  BdCMK.ICHK) 

c 

BBxl./B(IrHKrICHK) 

DO  ao  Jxt.KiOB 

«0  B(lCHK,J)spR»N(ICHK,J) 

C(lCHK)xCnMAX 
BdCHK,  IChK)*B8 

C eliminate  cOEFICIENTS  ON  variable  entering  basis  and  STORE 

C COEFICIENTS  ON  VARIABLE  LEAVING  BASIS  IN  THEIR  PLACE. 

DO  60  IxI^mDB 

IF  (I.EQ.JCHM)  go  to  60 

BBlxB(I,IrHK) 

B(I,ICHK)-o. 

DO  SO  Jxt.klOB 

50  B{I,J)xR(t,J).B»1*B(ICHK,J) 

C(I)xC(I).aRl*CBHAX 
60  CONTINUE 

GO  TO  20 
70  CONTINUE 

NERXO 

c 

c STORE  ONCv  components  of  U-VECTOR  in  <C',  USE  B(I,n  for 
c TEMPORART  storage 

c 

DO  80  IxI.nDB 
B(I»n»C(T) 

80  continue 

DO  90  1*1, nob 
C(I)aO, 

J«HSl (I  ) 

IF  (J.CT.a)  C(I)xB(J,n 
IF  (C(l).l T.O.)  C(I)*0. 

90  continue 

RETURN 

end 


SIO 

520 

5S0 

500 

550 

560 

570 

580 

590 

600 

610 

620 

6S0 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

8S0 

840 

850 

860 

870 

880 

890 

900 
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920 
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SUBROUTINr  aNaLIZ 


> LASER  TURRET  ANALYSIS 


SUBROUTINE  aNaLIZ(ICALC) 

C routine  To  perform  LASER  TURRET  ANALYSIS  IN  SUBSONIC  ANO 
C SUPERSONIC  PLON, 

C BY  6.  N,  vanOERPLAATS  RULY,  |977, 

C NAVAL  POSTRRAnUATS 

C Naval  postgRaouaTE  school,  honterey,  calif. 

COMMON  /Oi onCM/  AHAR(?0),ACL,AHPRih,AL,AMACh1( JO),UHAR(20),OENRTO, 

* OENgAM,EpS,EPSM,6AHHAi(30I,PhII(T0),RFUS,SlOPeX( J0),SUMPO2, 

* TDCNRT,THHA*f haVEL,»6HTI tJO),XM 

COMMON  /CmlOC/  ETA1(16),MAXK,HAXP,NBEAM,NETaI,NRBI,NTMBC,NXBC, 

* HflI(IO),TtTLE(aO),YYPXflC(10,i),YYPTHC(JO,i) 

COMMON  /CMLOC2/AHX(10,lS),bMI(t0, lS),ANT(tO,lS) 

DIMENSION  T(tO),AN(lu),BN(10],POIsri (200] 

C FOURIER  Expansion. 

NMAXsIO 

MMAXalO 

C OPTICAL  Path  length. 

KTRApsS 

Bsa. 

NPRINTsO 

IF  (ICALC'.gT.I  ) GO  TO  10 

Call  tinpiit 

C CALCULATE  FOURIER  COEFFICIENTS. 

CALL  FCOEF(AL,ACL,ThMAX,AN,ON,MAXK,MAXP,NMAX,HMAX) 

return 
10  continue 

yvpxhc(1,5i»eps 

YYPTBC(1,?)sEPS 

IPRlNTxO 

IF  (ICALC'.EO.5.OR,NPRlNr,CT,0)  IPRINT.i 
IPLOTpO 

IF  (ICALC'.eO.J)  IPLOTsi 
SUMP02X0. 

C BOUNPARY  rONOlTIONS. 

C X.oihecTIon. 

NSYMbo 

AHULTsEPS.nnARd ) 

Call  BCONn  (NSYm,Nx0C,YYPX8C,A8AR,MAXK,AL,AMULT) 

C ThETa-OIRfCTION. 

NSYMal 

AHULTsEPS*aRAR(I) 

Call  rcono  (nsyh,nihbc,yypthc,b8ar,maxp,thmax,amulT) 

00  So  IBEahsI ,NBEAH 

AMACHaAHArHTdBEAM} 

call  PHOIsT  (X,R, The  rA,EPSM,XH,PHI,GAMMA,RHO,Y,Z,PHlPP,0, V,CP, AMAR 

1 ,BPAR,AL, iCL»THMAX,EP8,RlN0EX,HH,ET*,4N,HN,HA)(K,MAXP,NMA*,HHAX,KtH 
2AP,A,B, T,r>FLDPL, IBt AM,REFOPL,«AV£L,RFUS,ETAt ,»8I»GAMHAI,PHI I.NbtAI 
i,NRBI, TntNPT,P0IbTI,0ENCAM,AM4CH,pENRT0, AKPRIM, IPRInT.IPLOT) 
c SUH  or  SbiiARES  OF  PHASE  qISTURTION. 

NNpNRBIaNfTAI 


10 

20 

30 

40 

BO 

bO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

IpO 

170 

180 

190 

200 

210 

220 

230 

240 

250 

2b0 

270 

280 

290 

300 

310 

320 

330 

340 

350 

3b0 

370 

SbO 

390 

400 

410 

420 

430 

440 

450 

460 

470 

460 

490 

500 


IT 

f 


1 


Pi 


A 


tk  ; 
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SMPlsO. 

00  20  I»l,NN 

?0  SHPiaSMPUPnlSTT  (J)**2 

SUMP02*SU»*R02»wGHT1( IBE*H)»ShPI 

80  continue 
TMET  asO , 

Ns20 

XHAXB2.**i' 

XMINa.XHAy 

RsO  • 

if(Iprimt‘,fo.o)  go  to  50 
00  60  I*1,nbEam 
AMACHBAMArHT ( T ) 

IFcl.EQ.l)  fiO  TO  80 

00  To 

DMACHsAHA(^HI  Tfi'  ..n 

IF(ABS(OH4CH),UT,0,OOt)  GO  TO  60 

TO  continue 

»o  ^°lJ^2pp«nt(Theta,anach,al,acu,thmax,maxk,maxp,nmax,mmax,*b*h, 

• B8*P»EPS, AN»hN*N»  XMIN, XMA X , R » OENC*B ) 

80  NVAL*50 

cllLi:^8LSpr(MAii!ABAH,Al.,SL0PEX,NVAL,AMULT) 

HCTURN 

RO  format  (///5X,36HSUM  of  squares  OF  PHASE  OISTORTION  .,E12.5) 
END 
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SUBPOUT INf  bCOND 

SUBPOUTlNf  kCONO  (NSTH,NBC.TTPBC,4»*«.M*XE,XHeP»*MUCTS) 
OIMEMSION  YVPnCtiO.D.ABARCD.AdOf  10),B(101 
C routine  To  fHPOSt  POLTNONMt  UOOno*RT  CONDITIONS, 

c The  first  npCT  COEFICItNTS  OF  AHAR  ARF  CALCULATED  WHERE  N8CT 

c The  total  nIiHrER  of  H.  C.  S. 

c total  NUH,,fR  OF  BOUNOART  CONDITIONS. 

NHCTsO 

DO  to  1*1. NRC 

IF  (ABS(VvPNC(1,2)).LT,10O.)  N8CT«N8CT»t 
IF  (AHS(YyPRC(I,S)).LT,100.)  HBCTsNeCTAl 
10  CONTINUE 

IF  (NBCT.ie.O)  return 
HAXElsHAXp.t 

C IHPOSE  StMNpTRT  IF  REOUIHEO. 

NSTHl«l 

If  (NSTH.po^O)  CO  TO  30 
N3TH1»2 

DO  20  I>2,maXE1,2 
20  *BAR(I)«0. 

30  CONTINUE 

c nuhheR  of  coeficients  eliminated. 

NtsN8CT*N!tVMl 

c Set  UP  cofficient  matrix  and  rhs, 

N«0 

JJSNSYHIA^ 

do  70  lAl.NhC 

X»YYPBC(I,n*XHEF 

IF  (AHS(YvPflC(I,2)).GE.t00.)  GO  TO  50 
c Y boundary  cOnoitiun, 

NaNAt 

B(N)BYYPBr (I»2)/*M0LTS 

Lai 

AAal. 

DO  ao  Jal.MAXEl.NSYMl 

IF  (J.GT.nD  H(N)»B(N)-A8AR(J)*AA 

IF  (J.LE.NI)  A(N,L)aAA 

LaLAl 

AAaAA*X 

IF  (NSYM|'Fq.2}  AAaAA»X 
00  CONTINUE 
50  continue 

IF  (A«S(Y9pbC(I,3T).CF.IOO.)  go  to  70 
. C Y.PRIHE  BOUNDARY  CUNDITION. 

NaNAl 

B(N)aYYPBf (T*3)/*MULTS 
La2 

*(N,nso. 

AAal. 

IF  (NSYH1',fO,2)  **«X 
DO  60  JPj.I.MAxEl.NSYHt 
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B8»PL0*T(.|).i, 

Ir  (J.Cr.Mi)  9(N)»d(N)-*BAR(J)*BB*A* 

IF  (J.LC.Mt)  *(N»L)sAA*eB 

L»L*1 

AAbAa*X 

IF  (NSVMt’^EO.2)  A*«***X 

60  continue 
70  Continue 

OETCRNinE  cOtFICIENTS. 

Nl«lO 

M2s1o 

H5«10 

Naal 

NLC»1 

CALL  CELImj  (A#H.N,NLC,Mi,n2,M3,m«,NER) 
STORE  results  IN  ABAR. 

Jb1»N5TN1 
DO  Bo  lal.N 
JaJ^NSTN] 

80  ABAR(J)b8h) 

return 

End 
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subroutine  besj 

PURPOSir 

compute  The  J bESSeL  function  for  a given  argument  ANO  order 


USAGE 

CALl'  BESJ(A»N,BJ,0,IER) 

description  of  parameters 

X .TME  argument  Of  the  j bessel  function  desired 
N IthE  ORUER  of  The  j bessel  function  desired 
BJ  Ithe  resultant  j bessel  function 
0 iREOllIRED  accuracy 
IERIreSULTANT  error  code  mheRE 
i^RsO  NO  ERROR 
jER»t  N IS  negative 
IER*2  * IS  negative  OR  ZERO 
ter*3  requireu  accuracy  not  obtained 

tERSR  range  UF  N compared  TO  X NOT  CORRECT  (SEE  REMARHS) 


remarks 

N Must  he  greater  than  or  equal  to  zero,  but  it  mus 
L£S«  than 

?O«10*X-X**  2/}  FOR  X less  than  or  EQUAL  TO  IS 
rOtX/2  for  X greater  THAN  15 


subroutines  ANO  function  SUuPROGRAMS  required 

NONp 


method 


recurrence  Relation  technique  described  bv  h,  golostein  and 
r.m’,  thaler* 'Recurrence  techniques  for  the  calculation  of 
bessel  FONCTlONS'»M.T.A.C.»V.15,PP.t02-I08  *NI)  I. A.  STEGUN 
ANO  M.  ABRAM0MITZ> 'GENERATION  OF  BESSEL  FUNCTIONS  ON  HIGH 

SPEfo  computers *, m.T. a. C.,V. 11, I 9S7,PP. 255-257 


subroutine  rCSJ(X,N,BJ,0,IER) 


BJa.O 

1F(N)|0,2o,20 
10  lERsi 
return 

20  lF(X)}0,3n.3t 
30  iER«2 
RETURN 


..,■1,., --anil,  ji, 


I 

t 

I 


Jl  IF(X-1S.)x2, J2. J« 

S2  NrtST»20.;iO. **-<•*  2/3 
GO  10.  56 

5a  NTEST*ao,tX/2, 

56  tF(N.NTESTiaO,5e,38 
58  lERsa 
RETURN 
ttO  lERsO 

NtsN4| 

BPREva.O 

c compute  Starting  value  of  h 

c 

IF(X-5.)5o,60,60 
50  MA8X>6. 

GO  TO  70 

60  MA=t.a»X»^0./X 
70  MBsNtIF IXf X)/«+2 

MZER08MAXn(H*,MB) 

C 

C SET  UPPER  LTNIT  OF  M 

C 

. HMAXsNTESt 

100  DO  190  MaMZER0,MMAX,3 
C 

C SET  F(M),F(M-t) 

C 

FMiai ,0E-?8 

FMa.O 

ALPMAa.O 

IF(M.(M/2^*2) 120, 1 10, 120 
no  JTa-1 

GO  TO  130 
120  JTal 
130  M2aM.2 

DO  160  Ka^,M2 
HKxM.K 

8MKa2,*FLn*T(MK)*FMl/X-FM 

FMaFMl 

lao  dJaHMK 
ISO  JTa-JT 
SaltJT 

160  ALPHAaALPMA«8MK*S 
BMaa2.*FMj/*-FM 
1F(N)|80, 170,180 
]70  BJaHMK 

180  ALPMAaALPMA^HMB 

HJaHJ/ALPMA 
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510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

760 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

950 

940 

950 

960 

970 

980 

990 

1000 


! 

I 

I 

! 


I 

I 

j 

j 

f 

t 
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SUBRoUTlNr  besJ 

IF(*BS(0J1bP*EV)»*8S(O»BJ) )200»200»t^0 
140  BPOEV-seJ 
IE«»J 

200  RETURN 


subroutine  bCSK 


SEPT,  77 


subroutine  besk 

COMPUTE  the  K HCSS6L  FUNCTION  FOR  A GIVEN  ARGUMENT  AND  ORDER 
USAGE 

CAli  BESK(X,N,BK,IER) 

OESC'^IPTION  OF  parameters 

* -THE  argument  of  twe  ^ hcssel  function  oesiheo 

N ;th£  OROFR  of  The  K BESSEL  FUNCTION  DESIRED 
8K  ^thE  resultant  k BESSEL  FUNCTION 

ierIresultant  error  code  rhere 
TE»»0  RO  ERROR 
JgRst  N IS  NEGATIVE 
TERsa  X IS  ZERO  OR  NEGATIVE 
TER'S  X .liT,  170,  MACHINE  range  EXCEEDED 
TER®R  BK  ,GT.  10«*70 

REMARK^ 

N Must  he  greater  than  oh  equal  to  zero 

subroutines  and  function  subprograhs  required 
NONf 

METHOD 

COHPUTES  ZERO  order  ANO  FIRST  ORDER  BFSSEL  FUNCTIONS  USING 
se»tes  approximations  anq  Then  computes  n Th  ordeR  function 
using  Recurrence  relation. 

recurrence  relation  ANO  POLYNOMTAL  APPROXIMiTjON  TECHNIQUE 
AS  oESCRIHEO  ST  A. J.M.hI TChCOCk, ’POLTNOMIAL  approximations 
TO  peSSFL  functions  of  order  zero  ANO  one  and  to  related 

FUNCTIONS',  M.T.A.c,,  V . U , 1 R57 , PP , 8b.88 , Anq  G.N,  WATSON, 

•A  treatise  on  the  theort  of  Bessel  functions*#  cahbrioge 
university  press,  1958,  P.  62 


SUBROUTINf  rESK  (X,N,eK,lER) 
dimension  T(ia) 

BKs.O 

IF  (N)  io,2o,ao 
10  1ER3I 
RETURN 

20  IF  (X)  30,34,90 
30  lER«a 
RETURN 

aO  IF  (X-ITO’.O)  bO, 60,50 
SO  1ER>3 
RETURN 
60  IER>0 


non  nnn  ono  orin 


SUBHOUTl^r  SEPT.  77 

IF  (X-j.)  |AO.i60(7o 
70  AsexP(>X) 

8al./X 

CsSQHT(n) 

T(n«B 

00  AO  L»2,t2 
AO  T(L)aT(L-| )*H 

IF  (N-n  4O.It0.O0 

compute  Kn  USING  P0LTN0MI»t  APPROXIMATION 

OO  (.0a*»(l.24jTl«l-.15S46Aa.T(t  )*.086M  l?8*T(2)-,0<>15'»0'»'5»Ti3)t.li««S 
l'»6.T(a)-.??<»9A50.T(Sj».17P2ttJO.T(6)-.52«7277.T(7)*,Sb7‘>Jb8»Tca)-.<l 
22(»26  55»T(4)A.2lA4SlA*T  ( I 0 06o00'»77»T  ( 1 t)*. 009180  38 1*T(12))*C 
IF  (N)  aU.ioO.UO 
100  bKsGO 
RETURN 

COMPUTE  kT  using  poltnomial  approximation 

no  GlsA*(i,2^T3l«n.<“»R'»‘»2T.T(i)-.l«A8‘.83«T(?)4.,12B0a27*T(3)-.l73o<l32 
1*T (4) ♦.28,(761 A*T (5)-,0SR«342«T ( 6 ) + . 628 358 1 »T ( 7 ) - , 66322RS* T ( 8 ) ♦ . 50S 
2023R*T(9)i,2bAl 304*t ( 1 0 )♦. 0788000  I •!{ 1 1 ) -. 0 1 0824 1 8»T  O 2))  ‘C 
IF  (N-1)  ao. 120. 130 
120  AKaGl 
RETURN 

PROM  KO.Kj  compute  KN  USING  RECURRENCE  RELATION 

130  DO  160  J>7,N 

6Ja2,» (FLOAT (J)-1.)«G1/X+G0 
IF  (GJ-1.OE70)  150.150. 140 
140  IERa4 

GO  TO  170 
150  GOsGl 
160  GlsGJ 
170  AKsGJ 
RETURN 
ISO  UaX/2. 

As,57T2157tAL0Gt8) 

C38*H 

IF  (H«l)  190.220.190 

COMPUTE  Ao  USING  SERIES  EXPANSION 

190  G0s»A 
*2J»1  , 

FACTsI , 

HJs.O 

00  200  J*?,6 


510 

520 

530 

540 

550 

560 

570 

560 

590 

600 

610 

620 

630 

640 

650 

660 

670 

660 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

RIO 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 


SUBROUTINf  besy 


SEBT.  77 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


Subroutine  besy 
PURPOSf 

COMPUTE  the  Y BESSEv  YUNCTIoN  FOR  A GIYEN  ARGUMENT  AnO  ORDER 
USAGE 

CALi’  Re8Y(X,N,BY,IE«) 

OESCRIpTTON  of  PakamETERS 

X ;thE  argument  of  the  Y BESSEL  FUNCTION  DESIRED 
N ^ThE  order  of  ThE  y messel  function  desired 
BY  ;thE  resultant  r BESSEL  FUNCTION 
IER^RESULTaNT  tRWOR  code  where 
TERSO  NO  ERROR 
TER*t  N IS  negative 
tEP»?  X IS  negative  or  ZERO 
TER*3  H'^S  EXCEEDED  MAGNITUDE  OF  IOaaTO 

REMARK* 

very  shall  Values  of  x may  c*use  the  range  of  the  library 
Function  alog  jo  be  exceeded 
X Must  re  greater  than  zero 
N MtisT  RE  greater  than  or  EQUAL  TO  ZERO 

subroutines  and  function  subprograms  required 
nonf 

method 

RECURRENCE  relation  AND  POLYNOMIAL  APPROXIMATION  TECHNIQUE 
AS  ocSCRIBeo  0T  A.J.M.mITChCOCk, 'POl  YNOMIAl  approximations 
TO  reSBEL  functions  OF  ORDER  ZERO  ANO  ONE  ANO  TO  RELATED 
FUNrTTUNS*#  H.T.A.c,,  V , 11 , t RS /, PP .86-BB,  Aso  G,N.  WATSON# 

•a  tRFATISE  on  the  THPDRT  OF  BESSEL  FUNCTIONS’#  CAMBRIDGE 
UNIVERSITY  PRESS,  iRSB#  R,  bZ 


SUBROUTINf  rESY(X,n#RY#IER) 

CHECK  FOR  errors  in  N and  X 

IF(N)tRO#Jo,10 
to  IER>0 

IF(X)lRO,i«»O#20 

BRANCH  IF  X LESS  Than  oR  EQUAL  a 


10 

20 

30 

40 

SO 

«0 

TO 

00 

90 

too 

110 

120 

130 

140 

ISO 

IPO 

170 

160 

190 

200 

210 

220 

230 

240 

2S0 

260 

270 

2B0 

290 

300 

310 

320 

330 

340 

3S0 

360 

3/0 

300 

390 

400 

410 

420 

430 

440 

4S0 

460 

470 

400 

490 

SOO 
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SUBRoUTInf  RESY 
20  lF(X.O.O)io«00>30 


SEPT.  77 


I 


C 

c 

c 


c 

c 

c 


t 

compute  YO  Tl  POR  X GREATER  THAN  4 

30  T>«a,o/x 
T2*TJ*TJ 

•*0«((((-.n0000i70a3*T2., 0000 JT3S65)*T2-, 000048761 3 )*T2 
I ♦,OOOl73a3)*T2-.OOl753o'»2)*T2..3<»«9425 
U0»((((. 00000333 12.T2.,00001 420 M)»T2..00003«246d).T2 
1 -.OOOO8047R1 )*T2t.OOO«564 524)* T2-, 01246694 

Pl*(( ((.00000424 14* T2..0q00200420)*T2*.OOOOS807S9)*T2 
1 00022x203) •T2». 002921 826 )»I2*,3484423 

Ol*((((-.A000036S94*T2«.OOUOt622)*I2-.00003987o8)*T2 
1 ♦, 000 t 00474 1 )*T2-, 0006390400) •T2*, 03740084 

A32.0/SORt(X) 

BsA*Tt 

C«X-. 7853402 

Y0sA*P0*STNrC)tH*O0*C0S(C) 

Y|>-A*Pl*cnS(C)fB*Ql*SIN(C) 

60  TO  90 

COMPUTE  YO  AHO  Y1  FOR  X LESS  THAN  OR  EQUAL  TO  4 

40  XXaX/2. 

X2«XX*XX 

T»AL06(XX, *.5772157 
SUM»o, 

TERMsT 

YO»T 

00  70  L»l,i5 
IF(L-I )50,60.50 
50  SUM»SUM*1./FL0AT(L-1) 

60  FL>L 

TSaT.SUM 

TERM3(TFRm,(-X2)/FL*«2)«(1,-1,/(Fl«TS)) 

70  Yo«Yo*TER»* 

TERH  a XX*(T-.5) 

SUMao. 

YlaTERM 
DO  80  L*2,16 
SUMaSUM* 1. /FLOAT (L«t) 

FLaL 

FL1«FL-I . 

TSaT-SUM 

TC»Ha(TERN,(»X2)/(FLUFL))»((TS-,5/FL)/(TS»,5/FLl)) 

80  Y|aYt*TERM 
PI2«.6366i9A 
Y0bPI2*Y0 
Yla-PI2/x;pT2*Yt 


510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

600 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 


c 

c 


SUBRoUTiMr  BESY 

CHECK  IP  only  YO  or  vt  IS  oeSIREO 


SEPT,  17 


c 

c 

c 


c 

c 

c 


BO  IP(H.l)IOA,lOOrl30 

return  CIthEO  YO  OR  VI  AS  REOUIREP 

too  IP(H)ltO,tEO>lI0 
110  f»Y«Yl 

CO  TO  170 
120  avsYO 
GO  To  170 

PERFORM  RErllRKENCC  OPERATIONS  TO  PINO  YN(X) 

IJO  YA»Y0 
YB«Y1 
Ks| 

140  TsFLOAT(2*k)/X 
YC»T»YB-Y» 

IP(ABS(YC,.t .0E70)ia5,i45,iai 
|41  lERsj 

return 
145  KsKfl 

IP(K-N)|5n,l60,l50 
ISO  YAsYB 
YB»YC 
CO  To  140 
160  ttV«VC 
170  RETURN 
lao  lERsi 
RETURN 
100  IERS2 
return 
End 


1010 

1020 

1030 

1040 

1050 

1060 

1070 

1000 

1090 

1100 

1110 

1120 

IliO 

1140 

1150 

llbO 

1170 

1100 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1200 

1290 

1300 

1310 

1320 

1330 

1340 
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auenouTiHf  cpp»nt  sept,  tt 

SUBPOUTINp  cPPM’^T  (THCTA,  AHACH,AL,*CU#THHAX,MAXK,MAXP,NMAX,HHAX, AB  10 

lAR,BHAR,ei>S.AN,HN,N,XHIN, XMA X , R, OCNSAM)  ^0 

DIMENSION  4RAR(|),t>HAR(t),AN(l),BN(l)  iO 

routine  Tn  PRINT  PHI,UmV,CP  at  Nai  locations  AL0N6  X FOR  SPECIFIED  «0 

theta  so 

IF  H B 0 TS  INPUT,  R IS  calculated  AS  TURRET  SURFACE.  *0 

IF  R.GT.O  IS  INPUT,  that  R IS  USER  IN  CALCULATIONS,  TO 

IKbO  «0 

IF(R.GT,0')  IRBl  90 

NRITE  (6,?0)  TmETA,AMACM  100 

DXb(XMAX-yhTN)/FLOAT(N)  110 

XaXHlN-OX  1^0 

NPIsNa^I  130 

DO  to  iBl.MPl  190 

XaXAOX  ISO 

IF(IR.EO,ft)  Call  BSURF(ABAR,B8AR, EPS, MaXK,HaXP,X, theta, AL,THMAX,R)  IrO 

Call  PhIUv  (X,ThETA,H,AMACh»*L»*Cl»ThMAX,mAXK»MAXP,NMAX,MHAX,ABAH,  1/0 

1BBAR,EPS,aN,8N,PHI,II,V)  100 

CPa-2,*U-v*«2  lio 

10  "RlTE(6,3f.)X,R,PHl,U,V,CP  200 

C CRITICAL  pressure  COEFFICIENT.  210 

CPSTARa2.*(l.  + ,5«(0EN6AH-l.)*AMACH«AHACH)/f  VtMf-AM  ■*■/.)  220 

tXlaDENGAM/(OENGAM-t,)  2iO 

CPSTARa2.,(CPSTAR*«£Xl-l, )/(0ENCAH*AMACH*AMACM)  290 

HRITE(6,9o)CPSTAH  2S0 

40  F0RMaT(/5x,42HCR1TICAL  PRESSURE  COEFFICIENT  ON  SURFACE  »,F10,5)  2P0 

RETURN  2/0 

C 2B0 

20  FOHNaT(//^/S<,22HFlOW  FIELD  FOR  ThETA  a,F7,3»8M  DEGREES//  290 

a SX,22MMArH  number  a,F7,5//10X, IHX,  300 

110X,lHR,9y,^HPMt,UX,lHU,llX,tHV,lOX,2HCP)  310 

30  FORNaKSX.reH  .9)  320 

End  330 
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SUBAOUTINp  oOPL 


SEPT,  77 


Subroutine  oopl  (x>R»THETA«ePSH,XM, phi, gamma, RHO«r,z,PHiPP,u»v»CP»  lo 

lABAR,BBAR,Al,ACL,THHAX,EPS,HIN0eX,R8,ErA,AN,HN,HAXK,>1AAP,NMAX,NMAX  20 

2,KTRAP,A,q,T,nELORL'TnC'<RT'0CM<i*'*,*'**CH,OENPTO,AKPRiM,DEL'’L*)  SO 

biMENSION  Af|AR(l),ABAR(t),AN(l),BN(t),T(t)  40 

c Routine  to  calculate  change  in  optical  Rath  length  by  integrating  so 

C The  index  op  PEF»*cTI0N  - l.O  from  O.O  to  a ANq  a to  8,  60 

C BY  G.  N.  vanOERRLAATS  ROV,,  1676.  70 

c Naval  postgraduate  school,  monterey,  calif.  so 

c 90 

c integrate  from  Zero  to  a for  constant  pressure,  density  too 

c Ratio  « IdenRy.  ho 

OrLOPLsAKpRtM*TOENRr*A  120 

OELPLAPOti OPL  110 

C KTHAP  s H4X.  number  OF  TRAPEZOIDAL  SOLUTIONS.  MAX  NO.  OF  INTERVAL  140 

C IS  2**(KlRAP-t)  150 

N2sl  160 

DO  50  RpI.kTRaP  170 

IGOTOPO  too 

10  CALL  THAPpH  (IC0T0,4,B,N2,RM0,RIN0EX)  190 

IF  (IGOTO'eQ.O)  go  to  20  200 

c Index  of  pefRaction  -i.  2io 

Call  refino  (x.r.theta.epsm.xm, phi, gamma, rho,y,z,phipp,o,v,cp,abar  ^^o 

1,8BAR,AL, ACL,THHAX,EPS,«IN0E*,R8,ETA,AN,8N,MAXK,MaXP,NMAX,MMAX,1)EN  2i0 

26AM,AmACh.DCNRT0, AkPHIH)  240 

Go  TO  10  2*|0 

20  T(K)sflINOFX  Z60 

10  N2i2*N2  270 

C HOMHERG  ImTFGRATION.  280 

K|s|  290 

call  RMBIhT  (T,XIRAP,K1)  500 

OCLOPL«DE|  opLaTCI)  510 

RETURN  520 

End  550 
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I 
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I 
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1 

j 
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SUBROUTINr  FCOEP 


SEPT,  17 


Subrout iNp  rcoEP(*L«*CL«THN«x,AN,RN,i<AXK,M«xP»NMAx»MM«x) 
COMMON  /CmlOCS/  AHX(t0>lS)»aMX(t0,tS),*NT(10>lS) 
dimension  AN(t)>BN(t) 

routine  To  calculate  FOURIER  COEFFICIENTS  FOR  E*PaNBION  OF 
POLTNOMIA)  surface  in  X and  TMETa, 

BT  C,  N,  vanOfRPLAaTS  mat,  1RT7, 

n*val  postrraoUaie  School#  monteret#  cauif. 
coefficients  on  X, 

MAXKPIsMAyKtl 
DO  10  m»1.hhax 

call  FXTOp(M,MAXK, AL, ACL,AN,BN) 

DO  20  Isl.MAXKPt 
AMX(I,m)«*i^(I) 

BMX(I,M)»NN(n 

CONTINUE 

coefficients  on  theta, 

MAXPPlPHAyp^l 

PI»J.1«15<»?7 
NHAXPlsNHtx^l 
DO  50  NPI,i,NmAXP1 
NaNPl«l 

CALL  FXTOi;r(N<HAXP,THHAX,Pl,AN,ilN) 

DO  00  lal.MiXPPl 
ANT(I,NPt).AN(n 

continue 

return 


suenouTiNp  pxtok 


SEPT,  77 


SUBPOUTINp  PXTOK  (N,K,X] ,X2,AN,8N) 

dimension  «N(t).aN(t) 

C HOUtINE  Tn  c*«.Cl't*TE  the  NTH  FOUHIEH  COEFICIENTS  FON  THE 

C expansion  of  I,  X,  x**2,  , , . X*«K. 

C FORM  OF  FniiOlER  SERIES  IS 

C Y a SiiM, (AN(K«1 )*COS(NX)  » 8N(K«1)*S1N(NX)),  N a 0,1,2..  INF. 

C BY  G.  N.  vaNDERPLAaTS  OcT.  22,  1076 

C naval  POStcR*OUATE  school,  MONTEREY,  CALIF, 

C 

C INPUT, 

c N , oFSiRpo  Fourier  coeficient, 

C K • HIGESt  oPoEH  Exponent  on  x for  which  an  and  bn  are  reuuired, 

C XI  « 1/2  fuTERYAL  over  wmICh  X*»K  IS  eXPANOgO, 

C X2  . 1/2  spacing  OEThEEN  expansions. 

C OUTPUT. 

c AN  - vector  up  a-COEFICIENTS  FOR  FOURIER  EXPANSION,  THE 
C the  rOEFICIENT  FOR  X*«I  IS  STORED  IN  THE  Itl  LOCATION  OF  AN, 

C FOR  laO.  I,  2,  ...  K. 

C BN  . vector  op  a-COEF ICIENTS  FOR  FOURIER  EXPANSION.  TmE 

c coeftcifnt  for  x.ai  is  stored  in  THE  ui  location  of  bn, 

C FOR  txO,  I,  2,  ...  K. 

c note  - although  only  the  coeficients  FOR  x**K  hay  he  Required,  the 
C coeficients  for  expansion  UN  1,  X,  x**2,  . . XA*(K-n  *Rt 
C ALSO  PROVfoEO  SINCE  ThESe  ARE  OBTAINED  AS  A CONSEQUENCE  OF 
C CALCULATImg  The  required  INFORMATION, 

c 

c Constants'. 

Pl»l. IRlSoaT 

KHPIaKAl 

IF  (N.GT.rt,  GO  TO  20 
C SPECIAL  CASE'.  N a 0. 

C A(N,K)  ANn  H(N,K)  ape  THg  FOURIER  COEFICIENTS  A«SU8«N  AND  B>SUB«N 

C ReSPlCTIv.(y  for  thf  expansion  X**K,  K a 0,  1,  . . . 

C *(0,K)  a .5.(Xl**(KTl)),(li(>l)*AK)/(X2*(Kt1 )) 

C 8(0, K)  a 0 

SIGNa.I. 

Cla,5/X2 

DO  10  KPlat.NHPl 

ClaClAXt 

*N(KPi  jaCT.d, -SIGN) /float (XPl ) 

SlGNa-SIGN 
10  BN(KPnaO'. 

return 

C general  case'  n.gt.o, 

C A(N,R)  a ,x1**K)«(lA(-n**K)xSlN(N*PI*X1/X2)/(N*PI)  • 

c rR»x2/(N*ptn»B(N,x-n 

C B(N,N)  a rxl**K)*(-t*(-l)**K)*C0S(NAPlAXt/X2)/(N*Pl)  f 

C '(K«X2/{N*P1))*A(N,K-I) 

C WHERE  A(N,-1)  a B(N,-1)  a o 
C PI  a S.1«15927 


10 

20 

iO 

60 

SO 

60 

70 

60 

90 

100 

110 

120 

ISO 

160 

ISO 

loO 

170 

180 

190 

200 

210 

220 

230 

260 
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290 
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360 
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390 

600 
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620 
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680 

690 
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SUBROUTiNr  fxtok 


StPT.  77 


C solution  npclNS  MITH  K > 0 *^0  USES  THE  ABOVE  RECllRSlUN  FOHMULAS  SlU 

C TO  CALCULATE  A(N,K)  AnO  B(N«K),  S20 

C 530 

c constants'  5«0 

20  anPI»FLOAt(N)*PI  5S0 

ANPIXsANPt*X|/X2  5o0 

Snj«STN(AnpT*)/*nPI  570 

CS1«C0S(A*ipI*)/4nPI  5«0 

C K « 0.  590 

*N(1)»2,»sn1  *00 

tiNinsO.  910 

IF  (K.EO,(i)  return  920 

C K ■ I,  2«  . . K 930 

SIGNS. 1.  990 

CCsX2/ANPt  9S0 

Cisj,  990 

00  30  KNsp,KMPl  970 

KsKN.l  900 

CtsCl.Xl  990 

C2sFL0AT(k)*CC  ^00 

AN(KN)sCl*(i .♦SICN)«SNl-C2*HN(K)  710 

BN(KN)sCl«(SlGN.l.)*CSlfC2*AM(K)  720 

30  SIGNs-SIGn 

■return  7«0 

END  750 


If! 


SUBROUTINf  FXV34 


SEPT 


77 


SUBRODTINf  F*V3<I(N,*,  Y.Z.NER) 

DIBEMSION  X(l)«V(n»Z(t),*A(4»<t) 

C routine  Tn  c*I.CUL*TE  the  COEPEICIFNTS  of  a POLTNOmUI. 
c Function  of  z in  x and  t, 

c ttV  G.  N,  y«MOERPL*ATS  NAT,  1977, 

c NAVAL  postgraduate  SCHOOL,  MONTERFT,  CALIF, 

C —INPUT. 

c n - NUHBEf  OF  interpolation  points  (N  » 5 OB  4J, 

c x,Y  . X A»io  Y coordinates,  m,N, 

C Z - z » F',*,Y)  » FUNCTION  VALUES, 

C Z IS  destroyed. 

c —output. 

C Z - polynomial  coefficients, 

C if  N « s,  Y * Zd)  ♦ Z(2)*X  ♦ Z{1)»Y. 

C if  N * «,  Y * Z(l)  ♦ Z(2)»x  ♦ Z(J)»Y  ♦ Z(«)«X*Y. 

C NCR  - error  InOICAIOR,  0 « no  ERROR.  NE»,GT,0  » ERROR  DUE  TO 
c tmo  x,y  points  ARg  The  same  OH  Three  x*y  points  are 

C CO|  inEaR, 

c OIMENSION  OF  AA  MATRIX  AND  NUMBER  OF  RhS  VECTORS  FOR  EQUATIONS, 

noIMau 
NRHSsI 

c Insure  n , ^ or  r, 

1F(N,lT.3)  M«3 
IF(N,GI,a^  N34 

C Set  up  COfFFIcIENT  matrix  for  simultaneous  equation  solution, 

DO  10  I>1,N 
AA(I,l)t| 

AA(1,2)*xJi) 

AA(I,3)*Yf I) 

(0  AA(I,I1)3X(T)*Y(I) 

C solve  EOUaTTOnS. 

CALL  gELIm2(Aa,Z,n,nRhS,NOIM,N0Im,N0Im,nrhS,NER) 

IF(N.E0,3)  Z(0)x0, 

return 

End 
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no 
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SUBRoUTInf  GELIH2  SEPT.  77 

subroutine  6ELIM2  (« i B. N. NLC . Mi , M;, H}, mq . nER)  >0 

dimension  A(Mt,M2),a(M^,Ha).K(t0)  20 

solution  of  SIMULTANLOUS  equations  with  multiple  constant  vectors  }0 

BY'  GAUSS  elTMinATION.  USiNc  PIVOT  SEARCH.  40 

BY  G.  N.  vanOERPLAATS,  9*2S>70  SO 

A*cotF.  Matrix  bsmatrix  containing  nlc  constant  vectors  oo 

NSNO.  OF  equations  Ml  4Nt)  h2  DIMENSIONS  aS  GIVEN  ABOvE  70 

IF  N£H»l  ON  return,  a is  singular.  80 

NERsl  VO 

tPS»I.0E->0  100 

c initialUf  k to  zero  no 

DO  10  Isl.N  120 

10  K(I)S0  lio 

C BEGIN  ELIMINATION  140 

00  VO  J*1,N  ISO 

C FIND  BEST  PIVOT  HOW  loO 

AAsO.  170 

lIsO  IdO 

DO  20  1*1, N IVO 

IF  (K(I).nF.O)  go  to  ZO  200 

HB3APS(A(i,,n)  210 

IF  (BB.LE'.aA)  go  to  20  220 

AAsBB  230 

11*1  240 

20  CONTINUE  2S0 

IF  (II.EQ'.o.OR.AA.LE.EPS)  return  2p0 

K(1I)»J  270 

C PIVOT  ON  POSITION  Afn,J)  2B0 

C reduce  A(ti,J)  TU  identity  2V0 

AA«1 ,/A(I i, J)  300 

DO  30  L*J,N  310 

30  A(lI,L)»Af II.L)***  320 

DO  40  LsI.NLC  330 

40  B(11,L)*8(II,L)»AA  340 

C tLlM,  cOEf.  of  JIH  COL.  FOR  I.NE.U  3S0 

LI*J«1  3en 

DO  60  1*1, N 370 

IF  (I.EO.tI)  go  TO  80  380 

BB*A(I,J)  3V0 

IF  (ABS(Br, .LE.EPS)  GO  To  80  400 

!F  (Ll.GT'^Nl  GO  TO  60  410 

DO  SO  L*Lt,N  420 

50  A(l,L)*A(t,L)-A(II,L)*BB  430 

60  continue  440 

DO  To  L»1 ,NLC  4S0 

70  BiI,L)»8(t,L)-8(II,L)«88  460 

80  continue  470 

VO  continue  480 

C RE-OROER  variables  TO  ORIGINAL  POSITION  4V0 

C temporarii y store  SOLN,  matrix  in  a SOO 


201 


SUBHOUTINf  cCLl^Z 


00  100  I*T.m 

00  104  J<;,MLC 
100  A(I,J!aH(T, J) 

STOHE  VAUllFS  BACK  IN  B IN  PROPEB  ORDER 

DO  no  IS|,N 

LaK(I) 

00  110  Jsj.NLC 
110  B(L«J)sA(t,J) 

NEttsO 

RETURN 


SUPROUTINir  IZC*»N  SEPT,  77 

SUBROUTlUr  iZERN(lH8.RHl,IET*,tTAl,NeTA»«,P0.A)  10 

DIMENSION  (»Bl(n»ETAIn),RD(l),A(j)»RI(«)#TI(a),POI(«)  20 

c routine  To  C*LCUl.ATE  ZERNICAE  FUNCTIONS  OF  SECTION  OF  BEAM  MITH  30 

C FIRST  NOOf  tHB,  lETA,  «0 

c BY  C.  N,  vanOERPCAATS  MAY#  1077,  50 

c naval  postcr*ou*ie  School#  honteRey#  c*1-If.  oo 

C IF  IRB  « i aNO  IETa  s i.  This  if  the  first  call  to  IZERN,  70 

c Therefore  ee«o  out  vector  a,  bo 

IF(IRR.GT' i.OR.ILTA.OT.I)  go  to  to  ’0 

00  20  I»l.tO  ‘“o 

20  Adtso.  110 

to  continue  120 

C RAOUL  COORDINATES.  130 

Rl(l)xO.  IRO 

IRBI«IH8»7  ISO 

lF(lRB.GT.n  Rl(n=RBI(lRBl)  160 

»I(0)*RI(t)  170 

RI(2)»RBI(IRB)  IBO 

RI(3)»RI(r)  IRO 

C eta  COOROtnaTES.  200 

TI(1 )3ETa7(IETA)  210 

TI(2)sTI(7)  220 

IET*tsIETi,i  230 

TI(3)s£TAi,t )a6.2831B5«  2R0 

IF(ItTA.LT.NETA)  TI(3)aETAI(IETAl)  250 

Tt(«)»TI(Y)  260 

c Phase  distortion.  27o 

N1«(IRH-2t,n£TAtIETA  260 

N2aNl«NETt  290 

N3aNEtl  300 

IF(I£TA,Eo.nETA)  N3aNJ-NETA  510 

NOaNtAl  320 

IF(IETA,Ed.mETA)  NaaNq-NETA  330 

POI(t)sO.  300 

IF(Ni.gT.a)  PnI(l)aPO(Nl)  350 

P01(2)sP0fN2)  360 

P0T(3)=P0fNj)  370 

P01(0)aO,  360 

lF(Nl,CT.n,  POI(«)=PO(Nq)  390 

C calculate  interpolation  coefficients.  000 

Naa  610 

IFllRB.EO*.  t ) NaJ  020 

CALL  FXY3a(N,RI,Tl,P0I,NER)  030 

c Integration.  Roo 

RlaRKt)  050 

T2»T1(2)  050 

R2aRl(2)  070 

T3aTI(5)  OBO 

AZaPOI(l)  ORO 

»taP0I(2)  SOO 
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SUBRoUTlNr  ^HOIST 


SEPT,  77 


SUBPOUTTNr  PHOIST  (X, R, ThETA, fPSM, XH, PHI , GAMMA, RHO, T, Z, PHIPP«U, V,C  lU 

tP,ABAR,BBAR.*L,*CI.,THMAA,EPS,RlNOEX,RQ,ETA,  AN,{iM,HAXK,MAXP,MMAX,MM  20 

2AX,RTRAP,*,B,T,0l.L0PL»I«CAM,REF0PL,I.AveL.PPUS,ETAi,RdI,GAMMAI,PHII  iO 

5»METAl»NH|,l,Tf)E‘IHT,P0ISTl,0ENCAM,AMACH,0EN«T0,AKPRIM,  IPRINT,  IPLOT)  MO 

OIMENSIOM  *flAR(l),BBAR(l),AN(t),8N(n,t(niETAI{t),flSl(n*CAMMAl(t  50 

i),PMii(i),poisn(n  60 

dimension  *I(J2),XP(100),TP( JOO),7P(lOO)  70 

c Routine  Tn  calculate  phase  distortion  for  the  ibeam  iorret  so 

C ORIENTATION.  RO 

C Br  G,  N,  y*NOFRPLAATS  NOV,,  197b  100 

c naval  post  graduate  school,  monteret,  calif,  ho 

c hefopl  * reference  delta  Path  length  along  center  of  beam,  120 

NEXTRAsS  lio 

C BEAM  orientation,  IMO 

PhIxPHIKibFAM)  iso 

GAMMasGAHm«I(TBEAM)  160 

*la57.2R57R*PHl  170 

*2»57,2957R.GAMMA  160 

IF(IPRINT'.CT.O)  mPITEiO.OO)  IBEAM,  A1  , A2,  AMACH  190 

C CALCULATE  reference  PHASE  DISTORTION,  200 

RB=0,  210 

ETAsq,  220 

C turret  SUrfaCF  intercept,  250 

Call  srfint  (xm, ersm, phi, gamma, a, rb, eta, x,r, theta, abar,bbar,eps.ma  240 

1Xk,MAXP,A|  ,THMAX)  250 

AIREFXA  2b0 

c Reference  change  in  path  length  oue  to  distortion,  27o 

Call  oopl  (X,r, theta, epsm,xm, phi, gamma, rho,v,z,phipp,u,v,cp,abar,b  28o 

IbAR.AL.Aci  ,TMMAX,EPS,RIN0EX,Rb,CTA,An,8N,HAXR,mAXP,NM*X,MMAX,RTRAP  290 

2» A,B,T,DEi'nPL, roENRT,oeNGAM,AMACH,OENRTO,AKPRlH,OELPLA)  300 

REF0PL«0Ei OPL«RFUS/waveL  310 

*t«57,295T8*ETA  320 

A2s0,  330 

XP(1)bO,  340 

TP(1)»0,  350 

ZP(1)«0,  360 

IF(IPRINT',CT,0»  "RITE(6,  I00)R8,A1,a2,A2,a,A?  370 

c Change  in  paTh  length  oOe  to  distortion  for  specified  values  of  36o 

C RB  AND  ETa.  390 

C InCRIMENT  rr.  400 

NN«0  410 

MMal  420 

00  60  IRa«t,NRBI  430 

RBpRBKIRR)  M40 

c Increment  fta,  450 

00  50  lETAst.NETAl  460 

ETASETAKteTA)  470 

C surface  InTE«CEPT,  480 

Call  srfInt  (Xm,epsm, phi, gamma, a, rb, eta, x,r, theta, a8ar,8Bar,eps,ma  moo 

tXK,MAXP,A| ,THMAX}  500 


SUBROUTINf  PHOIST 


SCRT.  77 


C CHANCC  IN  PtlH  LENSTm  due  to  distortion.  5t0 

call  OOPL  tX,R,THETA,EPSH,XM,PMl,6AHH*,RMO,»,Z,PHIPP,U,V,CP,A8AH,B  520 

I|)AR«AL>AC|  .THHAX.EPStRINoeXfHRfETA.AN.tiNrHAXK.MAXP.NMAX.HNAX.HTRAP  5i0 

2>A.s.T.DEi  opl.toenrt.oencam.ahach.oenrto.akprin.oelpla)  S«0 

OPL«OCLOP|  .pFUS/oAVEL  550 

hnmNN*1  ■ 5o0 

HMaHM>t  570 

AT(NN)aA  Sao 

POlSTl(NN,*nPL-«CFOPL  590 

*l«57.2957B*tTA  000 

XXaRBaSiNfCTA)  6t0 

VY8RB*COSfETA)  *20 

XP(MH)aXX  *30 

rP(MM)aYY  *40 

2P(HM)aPOTSTI (NN)  *50 

lF(IPRINT’.r,T.O)  -HlTtl*.  JOO)RB,*J,XX,YY,*,POISTI(NN)  **0 

IF  (IRB.Lt.nRBI)  CO  TO  «0  *10 

IF  (lETA.RT.l)  CO  TO  10  **0 

X1I»XP(NM,  *90 

YtiaYP(HM,  700 

UPlIxPOtSTTfNN)  710 

tT*tiaET*;6.2B3t»5«  720 

CO  TO  40  730 

C IMTERPOLATF  for  wore  HOOnOARY  points.  740 

10  NCOUNTaO  150 

KMlaHM^NExTPA  1*0 

XP(Mni  )axp(>«M)  770 

YP(HMt)xYp(MH)  7B0 

2P(MN|  )»2pf  *•>♦)  790 

OETAaTETA.ETAl ) /(FLOAT (NeXTRA)*!,)  800 

OPOaPOISTT(NN)-POISTj  810 

OXaxp(MM).xl^t  820 

OYaYP(MN).vxH|  830 

20  CONTINUE  S*0 

IF  tA9S(0vx.LT.1.0t*l0)  l)Xat,0E-l0  S50 

IF  (AHS(Oyx.LT.l.OE-lO)  OYal.OE-lO  8*0 

00  30  INTst.NEXTRA  870 

ETAIxFTAtVoETA  880 

XXaRHaSINxFTAI)  890 

YYaKfi«COS(ETAl ) 900 

XP(HH)aXX  910 

YP(HHlaYY  920 

ZP(MmxsP0tST170PD*(YY.YIhI )/0T  930 

30  MMaNM*!  940 

NCOUNTaNCnUNTfl  950 

IF  (IETA.i T.NETAl)  GU  TO  40  9*0 

IF  (NCOUNt.GT. I ) CO  TO  40  *10 

DETAalLTAj,. ETA)/ (FLOAT (nEXTRA) At .)  980 

POISTlaPOtSTl(NN)  *90 

OPO«OPU-PlllSTl  1000 


SURROUTINp  PHOIST  SEPT.  77 

ET*t«ET4  1010 

XIHIsKP(Mm)  1020 

YIHIbVP(Hh)  lOiO 

DxsxifXlMi  toao 

■ DY»Vtl-YlMt  lObO 

toeo 

60  TO  20  1070 

ao  continue  1000 

ETAIsET*  lOOO 

POISTlaPOTSTl{NN)  MOO 

XIMIbXP(Nm)  1110 

YIMlsrPfNMI  1120 

50  continue  lliO 

60  CONTINUE  1100 

MMsMh-I  1150 

PHI*57.29s7A*PHH(IBEAM)  llbO 

6AMNAa57.?6S7fl*6AMMAI (IBe*M)  11  70 

IF  (IPLOT'.CT.O)  call  M*Ps  (MM,  PHI , GAMMA,  NETA  I , NBBI  , XP,  YP,  2P)  llOO 

IF  (iPRINt.EO.O)  return  IIRO 

C CALCULATE  zeRnICAE  COEFFICIENTS.  1200 

C VECTOR  ZP  TS  USED  TO  STORE  ZERNICKE  COEFFICIENTS,  A,  1210 

H8MAX3R81 (NPHT)  1220 

00  62  IRHsl.NRBt  1230 

00  62  lETisl.NETAI  1200 

62  CALL  l2ERN(lRH«»Bl»ItT*.ETAl.NET*t,R!jMAX,P0lSTi,ZPJ  1250 

MRITE(6,6x)(ZP(n.l*l,10)  1260 

63  F0»M4T(//;5X,22HZ£RNJcK£  CUEFFICIENTS//5X,9HAVeRagE  *,E13.5/5X,  1270 

•’hTILT.  X »,tl3,5, 10x,3my  a,E13,5/5X,RhF0CUS  »,F13.S/5X,  1200 

* 9HASTIG  »,2EI3.5/5X,9mC0Ma  a,0El3.5)  1290 

return  1300 

C 1310 

90  format  (/>/5X,29HPhASE  OiSTORTION  CALCULATI0NS//5X,2SHbEAM  ORIENTA  1320 
ITlON  number  s, iS/5x.25hAzmUTh  angle  a«Fl0.2«nH  OEGREES/  1330 

* 5x»25HELfvaTI0N  angle  a.FlO.Z.SH  DEGREFS/5X.  13ttO 

allHMACH  NtiMMER, 13X, iHa,F]0.2/10X, iHR,9X,3HCTA,8X, iHX, 1 1 X , I hY, 1 1 X,  1 150 

•IHA, 1 1 X, Ihn)  I3e0 

100  format  (5y,El0,0,2X,F7.2,6E12,«)  1370 

end  1300 


SUBROUTINp  PMIUV  8C^T,  77 

SUBl>OUTtHf  PHIUV  (X«THEri«R«AM4CH,*L/ACLf  THMAX,MAXK,MAXP,NN«k«NMA)|  10 

l«ABAft,ailAb.EPS,AN,HN,PHl,U,V)  20 

dimension  AnAR(l)>BBAR(l),AN(t},BN(l)  30 

C routine  To  calculate  potential  function,  phi,  and  perturbation  «to 

c Velocities  u ano  v.  so 

C BY  C.  N.  vaNOERRLAATS  OCT.,  1976  60 

C NAVAL  POStgRAOUAIE  SCHOOL,  MONTERpT,  CALIF,  TO 

C SO 

c Constants’,  9o 

DELIsI.OEIs  >00 

0EL2>1.0C;a  >10 

BETAal .oAmacN**?  >20 

BETAsABSIsETA)  >30 

BETAaSORTjBETx)  l«0 

PlaS.taiSapT  >30 

BPILsBCTA,pt/ACL  >90 

BPIRL«BPI|  »»  >>0 

NMAXlaNMAy^t  >00 

C iNlTlALUp  PHI,  U AND  V.  >90 

PHIao,  200 

Uao.  210 

Vao,  220 

C CALCULATE  potential  INO  VELOCITIES.  230 

C M - LOOP.  2A0 

00  ao  Ms|,hmAX  2S0 

AHjFlOATCm)  260 

AHPlLaAH*nptL  2T0 

AMPIRL*AH«nPlRL  200 

IF  (AMACH.GT.t .)  SO  TO  tO  290 

C SUBSONIC.  300 

C K. BESSEL  punCTIONS  FOR  Ns«l  ANO  NsO.  310 

Nal  320 

Call  besk  («MPiRL>N,aKRN, ier)  330 

Call  resk  (ahpil.n.bkn, ieh)  3ao 

NaO  3S0 

Call  resk  (tMPIRL,N,bKRNPl,IER)  360 

Call  hesk  (*mpil»n,bknpi,ier)  sto 

60  TO  20  3S0 

10  continue  390 

C SUPERSONlf,  AOO 

C J«BCSSEL  piinCTIONS  FOR  Na-1  ANO  NaO.  9>0 

PRECISa.Opol  «20 

Nal  *30 

call  BESJrtMPTRL, N.RJPN, precis, IER)  *90 

CALC  BESJfaNPIL. N.BJN, PRECIS, ItR)  RSO 

SJRNa>BJNN  90S 

BJNa«RJN  970 

NaO  9B0  • 

Call  BESJ', »mPIRL,N,BJRNPi, PRECIS, itR)  990 

Call  RESJ'r amRil.n.bjnpi, precis, ier)  ^oo 


4 


208 


SUBROUTINf  pHlUV  SEPT,  77 

C V-BESSEL  functions  FOR  Ns>|  ANO  Nao,  BIO 

Nat  S20 

CALL  BESY'rAMPlRL»N,8YRN,lEH)  S30 

call  RCSYrANPlL«N«BYN,IER)  S«0 

BYRNa.BYRN  BBO 

BYNa.RYN  560 

> Nao  570 

Call  BESYf tMPTRL,N,8YBNPt , IER)  5S0 

Call  <»esYj*MPTL.N,HYNPi, ie«)  500 

20  continue  600 

C N > loop,  6lO 

00  So  NPtat,NHAXl  620 

NaNPl-l  630 

IF(AmaCH,rt.I.)  CO  TO  25  640 

C SUBSONIC,  650 

BPNNIaBKN  660 

BKRNHlaANpN  670 

BKNaRKNPI  660 

BKRNaHKRNpt  690 

C N»|  hESSEi  functions  by  RECURSION,  700  • 

BKNPla2.«FLnAT(N)*BKN/AMPILfUKNH|  710 

BKRNPta2,*FL04T(N)*BKRN/AMPIHLfBKPNHl  720 

60  TO  27  730 

25  continue  740 

C SUPERSONIr,  750 

BYNMtaBYN  760 

BYNNMIaBYpN  770 

BYNaovNPl  7S0 

BYHNaBYRNp)  790 

BjNN|aBJN  600 

BJRNMt>BJpN  BIO 

BJNaBJNPI  620 

BJRNaBJRNat  630 

C N«|  BESSEi  functions  by  RECURSION.  640 

BYNPla2,*FLnAT(N)«8YN/AHPIL-HYNMl  650 

BYBNPla2.,FLUAl(N),BTRN/AMPIRL-BYRNMl  660 

BjNPla2, ‘float (N)»bJN/AHPll.-BJNMl  670 

BJRNPla2,*FLUAT(N),8JRN/ANPIRL-HJRNMl  660 

27  CONTINUE  690 

C N,N  component  of  Phi,  U and  V,  900 

CALL  PhUVnm  (N,M,X, theta, AMACH,AL, ACL, THMAX,BKNMt,BKNP|,BKRNHl,HKR  910 

IN,hKRNPI ,M4VK,maXP, ABiH,RR*R,EPS,aN,tiN,PHINM,UNN, VNH,  920 

• BJNMt ,HJn,bJnP1 ,BJHNM1 ,HJRN,HJRNPt ,BYNHt ,HYN,BYNPt ,8YRNH| , 930 

• BYRN,BTKnP1 ) 940 

C UPDATE  PHt,  0 ANO  V,  950 

PMIaPMItPHINH  960 

UbUaUNM  970 

VaVAVNH  960 

C CHECK  CONvfrCENCE.  990 

lF(N,co,Ot  GO  TO  30  . 1000 


SOBRoOTiNr  PHIUV  SEPT,  77 

IP(ABS(PMiMM).LT.0ELl,*N0,(A88('JN»»),LT.0ELl.*N0.A8S(VNH).I.T,0eLl)) 

• CO  TO  SS 
SO  CONTINUE  ■ 

35  CONTINUE 

iPlN.EO.h  ** 

0PH1sAHS(phI*PHIA) 

l>UsAbS(U>|iA) 

0VmAH8(V-VAl  , 

lF{OPMI.LT.OCL^.ANO.(OU,LT.OeC^,AMO,OV,Lr,DEL^))  CO  TO  45 

36  PHIAsPHI 
UAbU 
VAbV 

40  CONTINUE 
45  continue 
HETURN 
END 


1010 

1020 

lOiO 

t040 

1050 

1060 

1070 

1000 

1000 

IlOO 

1110 

1120 

1130 

1140 

1150 

1160 


SUBROUTINf  phuvnh  SCPT.  77 

SUBR.OUTINf  FHdVNM  (N>H,X,rHeT*>AMACH,AL>ACL«THM*X,(lKNMt«BKNP|«BKRN  10 

IHl,BKRN,BFRNPt  >*<AXK.HtXP,AHAR>SeAR>EPS>*N,BN»PHlNH,UNN, VNM,  ^0 

* BJNMl,BJ»|,RjNPl,BJRNHl,BJRN>HJRNP|,BYNHt,HYN,eYNPt,BrRNMt,  iO 

* BYRh.BYRNPl ) «0 

COMMON  /CMtnCa/AHX(10,tS),F)MX(10,|5),ANT(10,lS)  50 

dimension  tRAR(l),HBAR(l),AN(I),UN(t)  60 

C routine  Tn  c*tCULAIF  N,M  COMPONENTS  OF  P0TENTIAL«  PhINM,  AND  70 

C PERTUROATioN  velocities  UNM  aNO  Vnm  FOR  A TURRET  OEFINbO  BY  A 80 

c Double  pu|  ynomial.  vo 

C BY  G.  N,  vanOERPLAATS  OCT,,  1976  100 

C naval  postgraduate  SCHOOL,  MONTEREY,  CALIF,  110 

C INPUT  1^0 

C M,H  • SUBSCRIPTS  ON  PHI,  U AND  V,  130 

C X • longitudinal  coordinate  ALONG  TURRET,  160 

C TheTa  • circumferential  coordinate  around  TURRET,  150 

C BETA  • ARS(l,>AMACH**a)  160 

C AL,ACL  • 1/2  LENGTH  OF  TURRET  ANn  1/2  PERIOD  BETWEEN  TURRETS,  170 

C ThHAX  - 1/2  circumference  OF  FUSELAGE  OCCUPIED  BY  IURReT,  180 

C BKNMl,  BKmPI  • K BESSEL  FUNCTIONS  AT  N.|  ANO  NaI,  190 

C BKRNMI,  BkRN,  BKRNPi  . K BESSEL  FUNCTIONS  OF  R AT  N.l,  N AND  Nfl,  200 

C MaXK,  MAXp  • MAX  exponent  OF  X AND  THETa  POLYNOMIALS,  210 

C ABAR,  BBAp  ■ X ANO  THETA  POLYNOMIAL  COEFICIENTS,  220 

C an,  bn  • nuMHY  STORAGE  dimensioned  HAX(MAXKtl ,MAXPt1 ) 230 

C OUTPUT  200 

c PhINM  - perturbation  potential,  250 

c UNM  - u perturbation  VELOCITY,  260 

C VNM  - V perturbation  velocity.  270 

C 280 

C CONSTANTS’.  290 

PI»3,10159?7  JOO 

AMPL»FLOAt(M)«PI/ACL  310 

BETAsahSI t .•AHACH**2)  320 

BETAsSQRTrnFTA)  330 

BMPLsflETA«AHPL  360 

SHbAMPL*X  350 

CHsCOSCSMt  360 

SM«SIN(SHf  370 

Sn«FLOAT(,|)«ThCTA  380 

CNaCOS(SN^  390 

HAXKPtsMAyKTl  600 

MAXPPIaHAyp«l  610 

C CALCULATE  a-BAR  TIMES  A-SUB-M  and  A. BAR  TIMES  B'SUB.M,  620 

AAM«0,  630 

ABMao.  660 

DO  10  Is|,MAXKPI  6S0 

AANaAAH4AnAR(I)*AMX(I,M)  660 

10  ABHaARHAApAR(I)*HMX(l,M)  670 

C CALCULATE  B.BaR  TIMES  A»SUB«N,  680 

BANao.  690 

BBNPO,  500 


I 


^ I 


SUBROUTlNr  PHUVNM 
NP|aN*t 

00  20  lal.M*JtPPl 
B*Na||AN«Ha«R(l)*ANr(I,<4P|) 
calculate  r>suB>N  or  theta. 

rNaBAN*CN 

IF (AHACH.rt.J.)  go  to  30 
SUBSONIC. 

Calculate  phInh, 

ClBAAM*SH^taM*CH 
C2aBETA»(|,KNf»!tBANHl  J 
Cls2.*ErS.PN*BKRN 
PMINM«CI*ri/C? 

CALCULATE  IINH. 

UNHaC3*AMpt,»(AAH*CHtABH«SN)/C2 
CALCULATE  VNH. 

VNHa.AMPL.cPS*FN*(dKRNPl4RKRNMn.ci/(eKNPltRKNHl) 

RETURN 

CONTINUE 

SUPERSONIr. 

ANHaBYNPt.BYNHUbJNPl.eJNMt 
BNM3PYNP1.rVNM|.HJNPU8JNH1 
APAaANM«Rk|M 
AMBa  ANM»flii|M 

AB2BANH**;>.RNH**a 

A] sAPH*SH.4H0*CH 

A2BAHB*SM;APe*CH 

A3aAAN*RTpN«ARH*BJRN 

Aa8AAM*HJoii|.AHN*hVRN 

ASa2.*EPS.EN/(AB2*BETA) 

PHINh. 

PHINH3AS* jAI*A3«A2*A4) 

UNH. 

UNMaA5*AHp(..(A2*A3.AUA4) 

VNH 

VNH3.EPS*pn*AmPl*( (AUAAH<A2*ABM).(eYRNPl.BVHNML)* 
S(A|*ARH*Ap.AAM)*(8JRNPf RJRNMI) )/aB2 

return 

End 


SEPT.  77 


SUBROUTINf  repino 


SEPT.  77 


SUBPQUTINp  REPINO  (X,R,THETA»EPSH,XH,PHl«GAMMt.RHOr V>Z«PHIPP,U«V«C  10 

|P.Ae*R,BBAR,*L,*CL,TMMAX,EPS,RINOEX,«B,ETA,AN,BN»M*XK,HAXP,NM*X.HM  20 

2AX,0En6AM,ah*Ch.0EnHT0,*kPRIH)  • 30 

dimension  tBAR(l}>BaAR(]),AN(l),bN(n  <*o 

C HOUTINE  To  calculate  index  of  refraction  .1  FOR  A SPECIFIED  P0IN7  SO 

C ON  A BEAM'  pO 

c 87  C.  N.  J^nOEHPLAATS  NOV,,  1976,  70 

c Naval  postgraduate  School,  honteret,  calif,  bo 

c GIVIN  aZMiith,  elevation  and  DISTANCE  ALONG  BEAM,  CALCULATE  90 

C X,  theta  4N0  r-coordinates,  IOO 

Call  XHTPoh  (XM.EPSM.PmI, gamma, RHO,Hb,ETA,X,H, theta, Y,Z)  no 

C calculate  potential  and  pERTUNBATTON  velocities,  1^0 

CALL  PMIUw  (X,THtTA,R,AMACH,AL,ACL,TMMAX,HAXK,MAXP,NMAX,MMAX,AeAR,  liO 

1BBAR,EPS,4N,BN,PHIPP,II,V)  1«0 

c Index  op  rff«action.  iso 

CP««?,«U»v«V  IBO 

Cist .T,5*DeNGAM*AHACH*AM4CH*CP  170 

RIN0EXsAKrriM*DENRT0/(C1**0ENGAM)  IBO 

Return  19o 

End  zoo 


subroutine  rmrINT 


SEPT,  77 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


Subroutine  rhbInt  (T,k,ki) 

OIMCNSION  Tfl) 

HOUTiNt  To  PeRFOHM  ROhsERG  INTEGRATION. 

BY  G.  N.  vanOERPLAATS  NOV.,  1976 

Naval  POStgRAOUaTE  school,  nONTERirr,  CALIF. 

INPUT 

T » vector  containing  Results  of  trapeZoioal  rule  integration. 

IF  Tm)  contains  trap,  rule  results  for  N intervals,  T(Z) 
CONTiiNS  results  for  2N  INTERVALS,  T(J)  CONTAINS  RESULTS  FOR 
RN  Intervals  and  t(i)  contains  results  for  (?**(i-1))n 
intervals. 

K « nuhher  of  trapezoidal  rule  Results  contained  in  t. 

K|  a K ON  last  CALL  TO  RhoINT.  FIRST  TIME  RMBINT  IS  CALLED  Klxl. 
OUTPUT. 

T a vector  containing  LaST  ROm  Of  ROHBFRG  table  in  REVERSE  ORDER. 
The  HIrmfST  ORptR  approximation  Tu  the  integral  is  in  Td). 

T(2)  Gives  the  2no  highest  oroer  approximation  so  the 
OIFFERpNCt  BETREEN  T(l)  ANO  t(?)  IS  AN  ACCURACY  ESTIMATION. 

T(k)  Is  the  highest  oroeR  trap,  rule  approximation  anu  IS  not 
OESTROyEO* 

notes 

n TF  accuracy  is  not  SATISFACTORY,  THE  NOHHER  OF  TRAP  RULE 

stations  Can  be  doubled  and  A nEM  solution  stored  in  KYI  OF  T. 
Then  S^t  KiaK  And  K3K*i  and  Call  rmbint  again  for  nlh  solution. 
2)  ALL  INxTTAL  ENTkieS  Of  T up  to  K-l  are  destroyed, 
reference,  Conte,  elementary  numerical  analysis,  mcgrar-mill» 

1965,  PP  T26-1JJ. 

IF  (K.LE.t)  RFT'JRN 
KlPlaKUl 

build  ROR  kk  of  ROMBERG  TABLE. 

00  to  KKaK|Pt,K 

KM|aKK-l 

A«1  . 

IxKK 

PUT  ROM  Kk  in  T(l),Ia|,KK  IN  REVERSE  ORDER.  T(KK)  DOES  NOT  CHANGE. 

00  10  Ilai.KMl 

lal-l 

Aaa,*A 

10  r(I)S(A*T',I,l).T(I))/(A«l.) 
return 
End 


10 

20 

30 

«o 

so 

60 

70 

80 

90 

100 

110 

120 

130 

lUO 

ISO 

IpO 

170 

IdO 

190 

200 

210 

220 

230 

290 

2S0 

260 

270 

2B0 

290 

300 

310 

320 

330 

390 

3S0 

360 

370 

3S0 

390 

400 

410 

420 


C 


Subroutine  rsurf 


SCPT,  77 


subroutine  rSMHF  (Aa*R>BH*R>ERSfNAXK,MAXP,X,THETA.AL<THM*X,R) 
dimension  ARXR(n>UflAR(t) 

routine  Tn  calculate  the  nun.oihensiunal  turret  Radius  at 
X and  THEii. 

BT  G,  N,  vanOEHFLAATS  NOV.,  1970, 

naval  POStp.RAOUaTE  school,  mONTERET,  calif. 

SPECIAL  C*SE  - theta  or  X NOT  ON  TURRET,  POINT  IS  ON  CYLINDRICAL 

fuselage. 

Hal. 

IF  (ABS(TmeTAi.GE.THMaX,0R.A6S(X).GE.AL)  RETURN 
CONSTANTS'. 

NAXKP1sMAnk»1 
MAXPPIaMAvR.I 
POINT  ON  turret, 
evaluate  E(X? 

FXsA8AR(tT 

IF  (MAXK.eO.O)  CO  TO  20 
Xial. 

DO  10  IXa^.MAXKPl 

xisxt.x 

iF(Aas(xi,,LT.i.oE«20)  Go  to  20 

to  FyaFXTABAa(tX)*Xl 

20  continue 

evaluate  P(THETA) 

FTHaBBARln 

IF  (MAXP.eQ.O)  CO  TO  00 
THIal, 

DO  30  ITH,2,M*xpPt 
THlaTHl*TMETA 

IF(ABS(THT).LT,1.0E-20)  CO  TO  00 
SO  FTHaFTH»BR*R(ITH)*THl 

00  continue 

Ral.O  ♦ F jxi»F(THETA)«EPS 
Ral .♦PX*Fth*EPS 
return 


SUhROUTINp  slope 


»EPT,  77 


SlJBPOUTINr  SLOPE  (MAXK, *H*R»AL»SLnPEX,NV*L»*MULTS) 
OlHENSlON  ar*R(I)»SLOPEX(1) 

■ routine  Tn  Calculate  slope  of  a polynomial  at  nval  points 

BETWEEN  X s ‘AL  ANO  X a aL. 

IF  (NVAL, IT. 2)  RETURN 
OXaZ. « AL/ f float ( nval )-l.) 

Xa.A|..OX 

MAXRlaMAXi*| 

00  30  I>1,NVAL 
XaXfOX 

5LOPEX(l)sO. 

IF  (MAXR.i  T. I ) GO  TO  30 
SLOPFX(I)aAflAR(?) 

IF  (HAXK.ito.t)  GO  TO  20 
AMULTat. 

XIal. 

00  to  J»3.maXKI 
XIaXI*X 

AMULTaAMUi  >♦!. 

to  SLOPEXt I )*SLOPEXtI)»AMIJLT«A0AR( J),XI 
20  SLOPtX(I),AMUtTS»SLOPex(I) 

30  continue 
RETURN 


2 

3 

4 

5 

b 

7 

« 

R 

to 
I 1 
t2 
t3 
14 
l^> 

16 

17 
to 

19 

20 
21 
22 
2i 
24 


Subroutine  sRfint 


SEPT,  n 


SUBHuUTTNp  SRPINT  (XM,EPSH,PHI,GAMHA,A,RB,tTi,X,R,THETA,ABAR,Bb«R,  10 

tEPS,HAXK,i«4XP,Al.,THMAX)  HO 

dimension  AB*R(l)>aHAR(I)  50 

C routine  To  calculate  distance  along  beam  from  mirror  to  turret  ttO 

c Surface.  so 

c HV  G.  N.  vANOFRPLAaTS  NOV.,  1476  eu 

C naval  post  graduate  school,  MONTEREV,  calif.  to 

c OUTPUT.  60 

C As  OISTAncF  from  mirror  TO  TURRET  SURFACE.  RO 

c IF  A s .t.0C>6  On  return,  mOHROR  SURFACE  IS  OUTSIDE  ^URRET  lOO 

C surface'  110 

C IF  A s . oE-6  ON  return,  no  intercept  COULD  BE  FOUND  AT  A LESS  120 

c Than  10.*  This  p‘'‘.'u'oLi  Results  from  unrealistic  turret  shape.  lio 

c method.  i«o 

c FOR  various  Values  of  rmo,  calculate  x,  rp  and  tmcta  for  a point  lio 

C ON  The  ream.  for  each  X ANo  ThfTA,  calculate  RS  for  RADIUS  TO  160 

C the  surface.  interpolate  to  get  RRsRS.  the  corresponding  value  170 

C of  rmo  tS  a.  160 

ORHOs.2  140 

c Radios  of  hear  Rav  at  point  on  mirror  surface.  2oo 

RHOsO.  210 

Also.  220 

RRlsEPSM  230 

'XsXM  2R0 

THETasO.  2iO 

IF  (RR.GT’ I ,0E-R)  call  XRTPOB  (XM.EPSm, phi, gamma, RH0,RB, eta, X,KRl,  260 

1ThETA,y,2?  270 

c surface  Radius  of  point  aT  x and  tmeta,  for  rhoso.  26o 

Call  RSURf  (ARAR,88AR,EPS,MAXK,MAXP,X,TmETA,AL,THMAX,RS1)  240 

DR|3RSi.Rp,  300 

As* I . 0E>6  310 

C IF  0R1.lt' 0,  BASE  OF  MIRROR  IS  OUTSIDE  TURRET.  320 

IF  (PRI.Lt.O.)  return  350 

c Pick  arhitraRv  ner  rho  and  interpolate.  3«o 

10  RhOsRHOaDrhO  SSO 

c Radius  of  point  on  ream.  360 

CALL  XRTPnR  (XM,ePsm,phI, gamma, Rho, RH,ETa,X,hR2, Theta, Y,Z)  370 

C turret  surface.  360 

Call  RSURf  fABAR, BbAH, EPS, MAXK,MAXP,X, theta, AL,TMMAX,R52)  340 

0R2>RS2*Rr2  rod 

D0R«0R2«0q|  410 

IF  (AHS(DnP).Lf.l.0F»10)  OOR*1.0E-10  420 

AsA|.DHHO«nPl/DOR  430 

IF  (A.LE.OHO.nR.RMO.GT.lO.)  GO  To  20  440 

C A IS  EXTHaPOLaIEU  point,  update  and  interpolate  again.  450 

HRI3RR2  460 

RS13RS2  470 

0RIS0P2  460 

AtsPHO  440 

GO  To  10  SOO 


SUBROUTiNr 


SEPT,  77 


20  CONTINUE 

IF  (A.LT.a.)  tal.OE'b 
HETUHN 

End 


9I0 

S30 

SnO 


SUBROUTINp  SURPRT 


SEPT,  77 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


c 


SUBHOUTINp  SURPRT  ( tBAR> BB*R> HAXK, HAXP, EPS> AL> THHAX ) 

OIHCNSION  AHAR(t)>BO*R(l) 

Routine  to  prim  surface  function  ordinates  for  poltnohial  turret, 

OY  G.  N.  vANOERPLAATS  ROV,,  1976, 

naval  postgraduate  school,  MONTEREY.  CALIF, 

INPUT. 

ABAR  « vector  of  polynomial  COEFICIENTS  IN  X-OIRECHON,  ABAR 
must  be  dimensioned  at  LFAST  MAXKTI  In  CALLING  ROUTINE, 
BBaR  * vector  of  polynomial  COEFICIENTS  IN  THE T A-0 I RtC T ION, 

NRAR  must  Bt  dimensioned  AT  LEAST  MAXPti  IN  CALLING 
routine. 

maxk  s order  of  x-polynomial. 

MAXP  s order  of  THETA-POLYNOmIA(  , 

EPS  * scalar  surface  multiplier.  SURFACE  » EPS»F ( X ) «F ( THETA) , 

AL  « 1/2  turret  LENGTH, 

Thhax  s i/2  TURRET  ANGLE. 

OUTPUT. 

POLYNOmIA)  pUNcTION  COORDINATES  IN  TeRHS  OF  X AT  THeTA  » 0 ANO 
theta  AT  X s 0. 

HAXKtsHAXK^t 
HAXPl3MAXp,1 
NRITE  (6,70)  EPS 

MRITE  (6, AO)  (A0Afi(I),Isi,MAXKl) 

RRITE  (6,00) 

RRITE  (6, AO)  (fiHAR(n,I*l,MAXPl) 

X-OIRECTIon. 

RRITE  (6,100) 

OXx,l»AL 
Xs-l.2*AL 
00  TO  1*1.23 
XsX«DX 
ZxABARd  ) 

AHULTsO. 

ZPRlHsO. 

IF  (MAXK.fo.O)  go  to  20 
XTal, 

00  10  JsZ.MAXKl 
AMULTsAMUi T+l. 

ZPRlHsZPRTMf AMULT*ABAR( J) *XI 
XlsXUX 

to  Z3ZtAflAR(.t)*XI 

20  continue 

Z3EPS*BBAo( , )*Z 
ZPR1M3EPS«aAAR( I )*ZPRTH 
IF  (I.ED.1 .nR.l.EU.23)  ZxO. 

IF  (*.EO.t .0H.I,E0.2i)  ZPRIM30, 

"RITE  (6,110)  x,Z,ZPNIm 
30  continue 

THtlA-OIRFCTlDN, 

"RITE  (6,120) 


10 

20 

io 

ao 

iO 
60 
7 0 
00 
90 
100 
110 
120 
130 
1<40 
ISO 
160 
170 
ISO 
190 
200 
210 
220 
230 
290 
250 
260 
270 
280 
290 
300 
310 
320 
5aO 
Sao 
350 
SoO 
370 
380 
390 
aoo 
010 
020 
030 
000 
450 
060 
070 
080 
090 
500 


' ^ 
I a 


: 3 


SUBRqUTINf  sURPRT 


SERT.  77 


910 

THs«i .2*ThmAX  920 

00  60  I»l,2l  5i0 

THsTh^OTH  5o0 

2«B«AR(I)  990 

IF  (MAXP.fo.O)  go  to  so  9*0 

THImi.  ^75 

AMULTsO,  $00 

ZRRlMaO,  $00 

00  40  J«2.mAXP1  000 

AMl(LT«AHl»|  T*l,  010 

2PRIms2PR7h«AM0LT«3BAR(J)*THI  020 

THIalHl*TM  0>0 

40  2sZfMBAR(.|)*THl  040 

SO  continue  oSO 

Z*CFS*ABA(»  ( 1 ) •£  060 

ZPHIM«£PS,a0*B( n»ZPHIN  070 

IF  (I. £0.1. OR. I. £0.23)  ZsO.  OBO 

IF  (l.£0.^.oR.I,£0.23)  ZPRiMaO.  690 

TMRsth*57',29578  700 

NRItE  (6,110)  Th,TmR,Z,2prim  710 

60  continue  720 

FrTURN  7J0 

C 740 

70  FORNaT  (///$A, jhHSURFACE  OEF INI T IQN, $X , 6H{EPS  «,F7,1, lH)/SX,54hPQt  7S0 

IYNOH|A(.  CoEEICiEnTS  (A(I),  I»0,MAxk)  in  X-OjRECTiON)  JjO 

80  FORNaT  (5»,SE12.5)  770 

90  FORNaT  (/rx.SBHPOLVNOMIAl  COEFICIfNTS  (8(1),  1«0,MAXP)  IN  TN£TA-OI  780 

IRECTION)  7V0 

100  format  (/rX, 1 |HCOOROlNATeS/RX, |HX, lix, 1HZ,9X,7HZ«PRIH£)  BOO 

no  format  (Sy.F7.},SX,FB.4,$x,r«.4,9x,FB,4)  610 

120  format  (/i2X«9MTHCTA/SX,7MRA0lANS,6X.7H0tGRfCS,8X, ihZ,9X,7HZ-PR1ME  620 

1)  830 

End  600 


220 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTlNr  tInPUT  sept.  77 

Subroutine  t input 
Input  car^  format 

• TlTLC(I),I»i,BO  PORHAKBOAR) 

ANYTHtnG  hay  be  TYPED  IN  COt.  2«80 

aerodynamics  . OPTICS 

• aMach.PCNRTo, rOENRT.OCNGAM, ANPRIM,n*VCL  FORMaKBFIO) 

AHACH  3 FHEfcSINEAM  HACM  NUMBfR 

OEMRTn  , FLICMI  DFNSiTY/Sea  LfVeu  density 

TDENRt  « density  inside  tURHET/SEA  LEVEL  DENSITY 

DENGAn  s EAPUNENT  on  PHFSSURE.OENSITY  relationship 

AKPRU  3 INDEX  OF  refraction  CONSTANT 

RAVEL  3 REAM  hAVELEnGTM 

geometry 

TURRET 

» HFUS, AL, THMix.ACL.EPS  FOHMATtSFlO) 

RFUS  3 FUSELAGE  RADIUS 

AL  s TURRET  non-dimensional  HALF  LENGTH 

THMAX  3 TURRET  half  ANGLE  (RaO) 

ACL  3 HALF  turret  spacing 

EPS  3 Turret  height  multiplier 

A MAXK.MAYP.NsbC.NTHBC  FORMAT(»IIO) 

maxk  s order  of  x-polynomial  Shape  function 

MAXP  3 ORDER  OF  theta-polynomial 

NXBC  3 NUMBER  OF  sets  UF  Y aND  Y.PRIME  BOUNDARY 

CONDITIONS  IN  X-oiRtcHON,  EXTERNALLY  fMPOSEO, 

NTHBC  3 NUMbER  OF  Sets  UF  Y aNO  Y-PRIHE  boundary 

conditions  in  TmETa-oIRECTION,  externally  imposed, 
note,  at  X«THETA*0.  y«EPS  is  automatically  imposed. 

A ABAR(I).l3l,HAXKAt  FORMAT(ttFIO) 

ARAR(T)  s !•!  COEFICIENT  OF  X-POLYNOMIAL 
A YYPXBCd.J)  J»1.j  NXBC  CAROS  FORMATTSFIO) 

YYPXB(.(I,J)  * X,  Y ANO  Y-PRIme  BOUNDARY  CONDITIONS  IN  THE 
X-OIRECTION. 

A BHAR(l),l3l,MAXPAt  FURMATCRFIO) 

BBARIt)  » I-t  COEFICIENT  OF  TmET A-POLYNOMI aL 
A YYPTBCd.J),  NThBC  CAROS  FOHMATtBFlO) 

YYPTBrdfJ)  * X,  Y AND  Y-PRImf  BOUNDARY  CONDITIONS  IN  THE 

theta-direction, 

MIRROR  center 

A EPSM.XM  FORMATIBFIO) 

EPSM  a 7"L0CATI0N  qF  CENTER  OF  HORROR 
XM  a x-lOCATION  of  CENIER  OF  MIRROR 

PHASE  distortion  CALCULATION  POINTS 

• NETAI.nRBI  FORMATIBIIO) 


10 

20 

SO 

aO 

SO 

oO 

TO 

ao 

90 
100 
I 10 
120 
ISO 
IRO 
ISO 
IPO 
170 
IBO 
190 
200 
210 
220 
2S0 
290 
250 
2bO 
270 
280 
290 
SOO 
SIO 
S20 
SSO 
S90 
SSO 
SoO 
370 
5B0 
590 
400 
410 
420 

450 

440 

4S0 

460 

4ro 

480 

490 

SOO 


4 


SUBROUTINE  TiNPUT  SCPT.  77 

C NET41  a number  of  ETa  ANCLES  Sid 

C NRBT  1 number  of  radius  POINTS  S^O 

C * ETAI(I^,I»1^mETaI  FORM*T(«F10)  SiO 

C ETaKt)  * ANGLE  (DEGREES)  S40 

C • RBt(I),Isl,MRRl  FOHMATCBFIO)  SSd 

C KBI(I)  s RAblUS  SoO 

C S/O 

C BEAM  orientation  SBO 

C • NBEAH  FURMATCailO)  SRO 

C NREAM  a number  OF  DIFFERENT  BEAM  nRIENTATIONS  ANALUEO  60d 

C • pHlI(I),GAMMtI(T),AMACHT(l),Mr.HTl(l)  NBEAM  CAROS  FuRMAT(AIIO)  bid 

C PHlI(i)  s aZmuTh  ancle  (OEGREFS)  bZO 

C 6AHH«t(|)  a ELLVATIUn  ANGLE  (OEGHEES)  bid 

C AMACMifi)  « macm  NUNflER.  default  a am«Ch.  bbi) 

C bCMTljj,  a WEIGMIINC  COEFFICIENT,  DEFAULT  s t,  bSO 

Subroutine  tinput  bbd 

COMMON  /G|  nnCw/  ABAR(20),ACL»AKPRIM,AC.AMACHl(30),BBAR(20l,0tNHTa»  b70 

• OENC'‘M,Cps,tPSM,GAMMAl( JO), PHI  1(30), RFOS, Slope *(30) »8UMP02,  bWO 

• TDENRI, rHMA*,bAVEL«»GHII(jO),XH  bRO 

COMMON  /CmlOC/  ETAl(lb),MAAK,MAXP, NBEAM, NETAl,NRSt,NTMHC,NXBC,  700 

• RBl(10),TTTLF(2U),yVPX«C(lO, J),yYPTt)C(10,l)  710 

C routine  In  read  INPUI  for  laser  TuPHeT  Phase  distortion  aNALTSIS.  720 

C . By  6.  N.  vAnNERPlAATS  NOV.,  lR7b  Tjo 

c n*val  postgraduate  School*  monterft*  calif,  tuo 

C 7^>0 

C title.  Too 

READ  (5,7a)  (TITLE(I),1«1,20)  770 

IPNPUTsO  7ttO 

IF  (IPNPOt.eO.O)  "RITE  (b.lOO)  ( T I TLE ( I ) , I»1 , 20 ) 7R0 

c AERO-OPTICS.  aoo 

Read  (S,a9)  amach,oenrto,toenrt,oengam,akprim, navel  sio 

IF  (IPnPUt.eU.O)  MRITE  (b.lSO)  AMaCM.OENRTO, TOENRT.OENGAM, AKPRIM.N  820 

iavel  aio 

C GEOMFTRy.  a«o 

C TURRET.  850 

Read  (5.8o)  rfo8,al,thma*,acl,eRS  bro 

IF  (IPNPUt.fO.O)  "RUE  (b.lbO)  Rf  US,  AL  , Thmax  , EPS,  aCL  870 

Thmax»THH4x/^7,29B78  a»0 

read  (5,Rfl)  MAXK,MA*P,NXBC,NfMMC  "RR 

NXBCsNXRC;i  ROO 

NTHRCbNTHacAl  RIO 

MAXKlsMAXa.t  R20 

MAxPlaMAXa.l  RJO 

IF  (IPNPUt.FM.O)  "RITE  (6,170)  MAXK  RRO 

READ  (S,8a)  (AHAR(l),I«l,MAXKt)  R5d 

ABARinsl'.  RbO 

IF  (IPNPOT.EU.d)  "RUE  (6,180)  ( ARAR  ( I ) , Is  1 , MAXK  1 ) R70 

TyPXBC(l,i)sO,  Rao 

yypXRCd  ,?)atPS  RRO 

TVPXBC(l,X)s200,  1000 


i 
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suBRouTlNr  T Input 


SEPT.  77 


If  (NXBC.ro.n  go  to  ?o 

If  (IPNPUi.fO.O)  KRITE  (6rl00) 

Do  10  KE.nxHC 

Read  (S.6o)  (YYPxHC(l.J).Jxl.}) 

10  continue 
20  continue 

IF  (IPNPUt.eO.O)  "HITE  (6.110)  ((YYPXBC(I,J).J»l,3),I»l.NX8C) 

IF  (iPNPUt.EO.O)  NRiTE  (6.100)  MAxP 
Read  (S.oo)  (BeAN(i),ii!,M*xPi) 

Impose  bohnoahy  condition  »(0)ai, 

BBAR(I)»r. 

IF  (IPNPUt.EO.O)  NRUE  (6.180)  (8BAR  ( I ) , I « 1 , MAXP I ) 

TYPTRCd.  J)»0. 

YYPTBC(1.?)*EPS 

TYPTBC(l.X)aiOO, 

IF  (NTHBC'Ea.l)  00  TO  aO 
IF  (IPNPUt.EO.O)  nRITE  (6.120) 

00  30  I*2,MTHRC 

read  (S.flo)  (YYPI9C(1,J),J»1.3) 

30  Continue 
Ri)  Continue 

IF  (IPNPUt.FU.O)  NNITE  (6.130)  ( ( YYPTBC ( I . J ) . Ji 1 , 3 ) . I » 1 . NTMBC ) 
MIRROR  center. 

Read  (S.8ft)  epsm.xm 

IF  (IPNPUt.EO.O)  -RITE  (6.200)  XM.EPSM 
PHASE  distortion  calculation  points, 
read  (5.00)  NETAI.NRBI 
Read  (5.«o)  (ETaKD.IsI.nETaI) 

If  (IPNPUt.EO.O)  write  (6.230) 

IF  (IPNPUt.EO.O)  "RITE  (6.200)  (ET AI ( I ) , lal , NETA I ) 

OO  50  Isl.NElAl 
50  ETAI(I)s£t»I(I)/57. 29578 

read  (5.do)  (RBKD.Isi.nHBI) 

IF  (IPNPUt.EO.O)  "RITE  (6.25U) 

IF  (IPNPUt.EO.O)  "KITE  (6.2«0)  (RR I ( I ) , 1 »1 , NRBI ) 

BEAM  orientations, 
read  (5.9o)  NPtAM 
IF  (IPNPUt.FO.O)  "RITE  (6.210) 

DO  60  IsI.nBEAM 

RE  AD (5. 80,  phi1(I),GAMNAI(I),AMAChI(I),"GHTI(I) 

IF(AMACMI n ) .L1 .0.001 ) ANACHI ( I )>«MACH 
IF(APS(»CHTT(n).UT.0.00l)  "GHlI(t)xl. 

IF(IPNPUT',EO.O)  "RITE(6,220)I.Pmii(I),gamm*I(I),amaCMI(I)."6HTI(I) 
PMIl(I)*PMlI(t)/57.2VS7» 

CAMM*l(n,gA.-M*l  (I)/57.295  78 

60  continue 
return 

70  Format  (Eaar) 

80  format  (8F10.2) 


1010 

1 

S 

1020 

1030 

1 

1000 

lObU 

'i 

1060 

1070 

J 

n 

1080 

1090 

0 

1 

1100 

1110 

1120 

> 

1130 

i 

1 loo 

■ Y 

4 

1150 

- i 

* 'r 

1160 

1170 

1180 

] 

1190 

f 

1200 

1210 

‘ i 
1 

1220 

i 

1230 

1200 

1250 

1260 

■1 

1270 

• 

1280 

. t 

i 

1290 

, ) 

1300 

1310 

1320 

' : 

1330 

- 

1300 

1 ‘ 

1350 

1360 

1370 

1380 

I 

1 

1390 

• 

1000 

J 

|O|0 

1 

1020 

i ^ 

1030 

1 1 

1 \ 

lOOO 

1 *■ 

1050 

1 i 

1060 

, 

1 

1070 

1080 

1 * 

% '■ 

1090 

1 

1500 
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; suBAouTiNr  tinput  sept.  77 

<0  POHH»t(8|Jo)  »5l» 

100  FORHAT  (/^x. IOHBUUNOARY  C0N01TI0NS/SX,3HX/L.6X,lHV,aX.7Hr«PRlMb)  IS^O 

1 110  format  (3p9.3)  1530 

120  format  (/9X, lOMHOUNOARY  CONOI T10NS/5X, 1 t HTHCT A/THMAX. OX. IHY. 4X . 7hY  1500 
^ 1-RRImC)  1550 

130  format  (5y,3F«.3)  15*0 

'•  ; l«0  format  tlMi.ox.aiHTORRET  ANALYSIS  1NPUT//5X , 5HT1 TLE/5X,20Aa ) 1570 

- • 150  format  (/>^Y. t IHaCRO-OPTiCS/SX. Iohmach  number.  amaCH  ISttO 

1 »,F6,3/SX, TbMtXItHNAL  OENSITY  baTION,  OtNRTO  a, Fb, 3/5X, 3pm J N 1500 

2TERNAL  OEnSTTY  RaTiO,  TOENRT  a, Fb. 3/5X , 3bHPRESSUHE»0bNS t TY  bXP  IbOO 

30nEnT,  OEiyGAM  a.Fb.3/5X, SbHPHASE  DISTORTION  CONSTANT.  AkPRIH  a.c  iblO 
Oll.«/5X.3bMMAWtL£NGTH,  aAVtL  a.Ell.O)  iPiO 

I IbO  format  (//s*.0mCL0METRY/5*.2THFUSELAGE  RADIUS.  RFUS  a,F7,5/5x,  IbiO 

UThTURRET  mAUF-lEnGTh.  ».F7,3/5x.27hTUHMET  h*lT-ANGLE.  TMMax  IboO 

I 2 a.F7.3.9H  OtGREES/5X.27MTUHRET  HEIGHT  FAClDR.  EPS  a.F 7 , 3/5X . 27h  lb50 

, I STURReT  ha,  r. spacing,  ACL  ».F7.3)  IbbO 

170  format  (//SX.35HIUHRET  POLYNOMIAL  SHAPE  COEF IC IENTS/5X ,20MX-OlRECT  loTO 

llON.  hROER  a. I5/5X. 1 IhCOEFiCiEnTS)  IbSO  > 

ISO  format  (0»,5E|3.5)  IbOO 

lOO  format  (/BX,20HTMETA-niRECTI0N,  ORDER  a, I5/SX , J 1 HCOEF IC lENTS ) 1700 

200  format  (//SX.POmLUcXTIOM  of  center  of  HlRHOR/Sx.bHXM  a.F7.3.5x,b  1710 

I IHEPSM  B.Fj,.3)  1720 

210  FORMaT(//SX, 17HHEAM  0RIEnTaT10nS/SX« ISHBEaM  PHI  CaHMa.OX.  1730 

• 12HHACH  wFIGMT)  1700 

220  FORMAT(Ift  2F0.2.2F8.3)  1750 

230  format  (//bX, IShPHaSE  DISTORTION  CALCULATION  POINTS/SX , bHANCLES > I7b0 

’ 200  format  <5»,SF|0.3)  1770 

, I 250  format  (/rx.ShRAUII)  1780 

/\  EnO  1790 


lij 


or»o  r%or»or>r>or>or>f»r>o  r»oo  ononoorioo  oo 


subroutine  TRiRZN 


SEPT.  77 


Subroutine  tRapzn  (TGaTo,A»H«N2,x,Fx)  ia 

routine  Tn  pERFORN  TRxPE^OIOAL  RUlE  INTEGRATION  FOR  F(X)2N,  20 

BEC-INING  with  F(X)N,  io 

BV  S.  N.  vxnOERPLAATS  N0V.>  1976  40 

N»V4L  POSrr.RAOUATE  SCHOOL,  MONTEReT,  calif.  bO 

INPUT  60 

IGOTO  M CiLC^LATION  PARAMETER.  InHIaLLT  CALL  TR*P2N  WITH  70 

Iroto  « 0,  ao 

A a LohfR  bound  UN  Integration,  oo 

B a Upper  rounu  on  Integration.  too 

N2  a NumpER  of  intervals  UStO  IN  This  solution,  N2  3 1 no 

If  tHTEGRATIUN  is  just  HErININC.  otherwise  n2  a 2*N  120 

Of  previous  solution,  IJO 

FX  a Ffx)H  UN  FOHST  CALL  (IGOTOsO)  AND  F(X)  ON  SUBSEQUENT  CALLS  luo 

(TcoToai),  no 

OUTPUT  160 

IGOTO  a Calculation  control,  if  igoto.ne.o,  calculate  F(X)  ano  I7o 

Call  again.  tF  jGOTOaO  ON  RETURN,  INTEGRATION  iS  COMPLETE  IBO 

X a X^vaLUE  fur  NEW  FUNCTION  EVALUATION  (IF  IGOTO.NE.O)  190 

FX  a FfX)2N  IF  IGOTOao.  THIS  IS  FINAL  SOLUTION.  200 

USAGE  K IS  TOTAL  NUMBER  OF  TRAPE20I0AL  SOLUTIONS  OESIREO.  210 

DO  20  1 a i.K  220 

N2a2**(I-7)  2SO 

IGOTO  a 0 240 

10  Call  TRAP;,(llGaT0,A,B,N2,X,FX)  2S0 

IF(IGnTO.FO.O)  GO  TO  20  260 

FX  a F(X)  270 

GO  TO  10  2b0 

20  continue  290 

SOLUTION  is  COMPLETE.  500 

510 

IF  (IGOTO^I)  10,20,40  520 

C CONSTANT.  550 

10  Ha(B.A)/F|  oaT(N2)  JrO 

FNbO.  550 

A|a|.  }e0 

A2a|,  370 

IF  (N2.CT',,,  GO  TO  20  580 

C SPECIAL  CaSF,  I INTERVAL,  590 

AtaH  400 

A2a.S  aiO 

XaA  420 

iGOTOal  450 

return  440 

C GENERAL  Case,  N2.GE.1  450 

20  FNla,5»FX«Al  460 

1»«1  470 

50  Ialt2  aao 

If  (I.Gr.N2)  GO  TO  SO  490 

XaAAFLOATii)«H  500 
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SUBROUriNr  XRTPOB 


SEPT,  77 


SUBPOUTINp  VRTPOB  (XM,ePSM# PHI ,GAMMA , RHO, RB,ETA> X, R, THfcT A, r , 2)  10 

c Routine  Tq  calculate  coordinates,  x,r, theta  of  a point  on  a beam.  20 

C BY  6.  N,  vanOERPLAaTS  N0V.>  1976  SO 

C naval  POStgRAOUATE  school,  MONTEREY,  CALIF.  MO 

C INPUT.  bO 

c XM  s y.LOCATION  OF  CENTER  OF  MIRROR,  60 

C EPSM  s 7.L0CATI0N  OF  CENTER  OF  MIRROR.  70 

C Phi  s iEMUTH  ancle  measured  from  positive  X.AXIS,  BO 

C CAHM*  s FLFYaTION  angle  measured  from  X-Y  plane,  90 

C KHO  s distance  along  HEAM.  IUO 

C RB  » PaoIAL  distance  FROM  CENTER  OF  BEAM.  110 

C eta  X iMOULAR  location  MEASURED  FROM  LINE  IN  ThE  X.Y  PLANE.  120 

C OUTPUT.  liU 

C X X y.cYlINORlCAL  AND  CARTISTAN  COORDINATE.  IMO 

C Y 2 v.carTISIan  coordinate.  ISO 

C Z X 7.cARTI$IaN  coordinate.  IbO 

C « X radial  location  to  point  from  X-AXIS,  170 

C TheTa  X riRCUMFERENTlAL  LOCATION  OF  POINT  FROM  2. AXIS.  180 

c NOTE  - ALL  Angles  are  in  heoians,  iro 

C 200 

C CONSTANTS’,  210 

SNPxsIN(PhI)  220 

CNPxcOS(PhI)  230 

SNGxSIN(GammA)  240 

CNGxCOSCGamhA)  2S0 

SnEiSIN(Eta)  260 

CNE*COSf£TA)  270 

C CARTISIAN  COORDINATES.  2H0 

C X X XM  . 9hO*C0S(GAMhA)*c0S(PHI)  - RB*SIN(ETA).SIN(PHI)  * 290 

C RB«C0S(ET4,»SIN(CAHMA).C0S(PMI)  300 

XaXM.RH0*rN6*CNP-RB*(SME.SNP.CNE*SNG*CNP)  310 

c Y X RHO*CDSrOAMMA)*SlN(PHl)  • RB*S I N ( E TA ) *COS ( PH  I ) • 320 

C Rn*COS(ETA).SIN(GAMMA)*SlN(PHI)  330 

YxRH0*CNG.SNP-RB*(SNE*CNPaCNE*SN6*SNP)  340 

c 2a  EPSM  ; pMn*SIN(GAMMA)  t RB*COS(ETa)*COS(GAMMA)  3bO 

2xEPSM«RHn.SNGYRB*CNE*CNG  360 

C 370 

C POLAR  COORDINATES,  3B0 

C X X X,  590 

C R X SORT(v««2.2**2)  400 

RxS0RT(V*.2.2**2)  410 

C TmETa  X ArcTAN(-Y/2).  420 

C guard  against  zero  divide.  430 

IF  (ARS(Zi.lT,1,0E-6)  Zxt,0E-6  440 

YZxABS(V/7)  450 

THETaxATAm(YZ)  400 

C angle  CREaTFR  than  PI/2.  470 

IF  (Z.LT.rt.)  TMETAX3.I4I5927. theta  4B0 

C negative  angle.  490 

IF  (Y.GT.o.,  THETAx-TmETa  500 


SUBROUTINir  jERN  SEPT.  77 

subroutine  7ERN(R>Rl«Ra>Tl>T2.*2,*l.A2,A3,A)  10 

OtHENSlON  t(10).Z(10)  20 

C routine  To  calculate  OPTICAL  PROPERTIES  OF  PHASE  DISTORTION  IN  30 

C TgRHS  OF  7FRNICKE  POLVNOmULS,  «0 

C BY  C,  N.  vanOFRPLAaTS  MAY,  1977.  50 

c N4VAL  postgraduate  SCHOOL,  MONTEREY,  CALIF,  rO 

C Phase  distortion  is  assumed  of  the  form  *z  ♦ Ai»fl  ♦ a2»t  ♦ a3ah*t  to 

c mheRe  R • RADIUS  And  t » Theta  in  RAoiANs,  eo 

C — Input,  RO 

C K > BEAM  Q/tnIli$.  lUO 

C »1,  Tl  * I omER  LIMITS  OF  integration.  110 

C R2,  T2  s UPPER  LIMITS  OF  INTEGRATION.  120 

c Az,  Ai,  Ap.  A3  s Polynomial  coefficients.  i3o 

C A » vector  of  ZERNIcaE  coefficients,  on  first  call  to  ZERn  a MUST  1<40 

c BE  zero.  150 

C — — OUTPUT,  160 

C A I UPOATpn  vector  OF  ZERNICKE  COEFFICIENTS.  I TO 

C ISO 

DO  20  I«l.a  I’O 

GO  TO  (2l,2?,2J,2«),I  ZOO 

21  call  ZINTfR,Mi,Ti,AZ,Ai,A2,A5,Z)  210 

SIGNal.  220 

GO  TO  25  2J0 

22  call  ZINT',R,Ri,T2,AZ,At,A2,A3,Z)  2«0 

SICNx-1,  250 

GO  TO  25  260 

25  CALL  Z1NT^r,R2,T1,AZ,A1,a2, A3,2)  270 

SiGNs.l.  2«fl 

CO  TO  25  2R0 

29  call  ZINTfR,R2,T2,AZ,Ai,A2,A3,Z)  500 

SlGN«i.  510 

25  continue  520 

DO  30  J«l,lO  J30 

30  A(J)sA(J)«sICn*Z(J)  540 

20  continue  550 

return  560 

ENO  570 
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SueUOUTlNr  ziNT  SEPT,  7 

SUbPOUTlNr  ?lMT(C*P»fR«THCTt,4Z,At >*2,A3,Z) 

OImEnsION  z(tO) 

. Routine  tq  f^aluate  integral  of  zernicke  poltnohial  times  phase 
distortion  at  H ANu  TheTA. 

BY  C,  N,  yanOERPLAaTS  may,  >977, 

naval  postgraduate  school,  monteRet,  calif. 

Constants', 

CRZ«CAPR*r apn 

CRIscrZaCapR 

CRAscRZaCqz 

N2sR*H 

P3>HZ*R 

R4SR2*RZ 

KSsRaRa 

R6sR3*R3 

T?»THETA*iMFTA 

ST*SIM(TMftA) 

STZSSTaST 

ST3»ST.ST? 

S2T»SIN(2' ,thFTA) 

S5T«SIN(3,»TMFTA) 

CT»COS(Tmpta) 

CT2»CT*CT 
CT3«CT»CTi 
C2T»cnS(a’ .THETA) 

C3T»COS(i., THETA) 

Pl*3,l«t5a?7 

SQPIsSQRT^PI) 

Z(l)SH2.TNETA.(,^.AZTAt.R/3.tTHCTA.(.2S*A2.Ai.R/6.))/(CAPR.SQPI) 

tilt. 

2(2)»?.*H^.(ST*(AZ/3.*.Z5*R*AI).(CTtTHETA»ST)*(A2/3.T.Z5*A3*R))/ 

• (CR2*S0Pt) 

Z(3)a.2..93.( (AZ/3.f .2S*AI «R)*CT.(ST«ThCTA*CT)*(A2/3.*.2S*a3*R) )/ 

• (cH2*SOPt) 

FOCUS. 

1(4)43.46(1  )nl6*R2*THETA*(,2S*(HZ>CRZ)*(AZt.5*A2*THET A)* 

• R*(a1a.5.43*THETa)*(.2*r2«cR2/<>. ) )^(SaPI*CR3) 

ASTIghaTUn. 

Z{5)»2.44o,i497.R4.(.5.{.25*AZ».2*ai.R).S2T..S*(.25*A2*.2.A3»H)» 

• (TheTA«S?t».25»c2T))/(SoPI»cR3) 

Z(b)«2.<i«94A9T*Ru*(Sl2*( .PS*aZ«.2.A| »R)«(,2S*A2t.2*A3*R)* 

• (TMETA*St?..S»ThETA*.25.S2T) )/(SOPI*CR3) 

COHA, 

Bta,2*AZTit .R/b, 

H2B.2.A2«45.H/b. 

Z(7)a2.82Mo2T»RS»(Bl«(ST.(CT2.2. )/i,-STI).n2.(3,*THFTA»S3T.CiTt 

• ?7.»THETA.sr*3.*CT*3b.*TMETA.sr3-l2.*cT*ST2)/3b. )/(SUPI*CR4) 
Z(A)a2.H2M(,271 *HS*(HI*(CT3>CT*(ST2*2. )/s. )»H2*(3.*rHErA*C3r-S3T> 

a 27..THETA,CT.3,»STAib.*THETA.CIi-12..SI.CT2)/3b.)/(SHPI*CH4) 
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